Getopt::Long::GetOptions(
   'u=s' => \$user,
   'p=s' => \$passwd,
);
$user   = 'me' unless defined $user;
$passwd = 'sekret' unless defined $passwd;