(my $cmd = $0) =~ s#.*/##;
my $usage_str = <<EOT
Usage: $cmd [-hulf] [-f file]
'Explanation of above command and options'
EOT

getops('hulf:', \%opts) or die $usage_str;