use Getopt::Std qw(getopts);
getopts('f:', \%opt);
if ($opt{'f'}) {  ... }
# Debug
print Dumper (\%opt);