-my $hostname = $ENV{HOST} || 'localhost';
-my $username = $ENV{USERNAME};
-my $password = $ENV{PASSWORD};
+my %opts = (
+ usage => sub { podusage() } ,
+ hostname => $ENV{HOST} || 'localhost',
+ username => $ENV{USERNAME} ? $ENV{USERNAME} : $ENV{USER},
+ password => $ENV{PASSWORD},
+ command => 'ls /tmp',
+);