my %opts; getopts("d:a:s:e:", \%opt); my $Directory = $opts{'d'} || '/home/maverick'; my $Address = $opts{'a'} || 'somewhere@overtherainbow.com'; my $Silent = $opts{'s'} || 0; my $Extended = $opts{'e'} || 0;