my $action = shift @ARGV or _help();
-my ( $username, $password ) = split(/:/, $ENV{TR_AUTH} );
+my %a = ( autodie => 1 );
+@a{ qw(username password) } = split(/:/, $ENV{TR_AUTH}) if $ENV{TR_AUTH};
+print %a;
-my $tc = Transmission::Client->new(
- autodie => 1,
- username => $username,
- password => $password,
-);
+my $tc = Transmission::Client->new( %a );
if($action eq 'list') {
printf "%3s %-34s %4s %4s %5s %5s\n", 'id', 'name', 'lcrs', 'sdrs', 'rate', 'eta';