use Getopt::Std;

my $file = shift;

my %args;
getopts 'abc', \%args;

print "File is $file\n";
print "$_ is $args{$_}\n" for keys %args;