$ARGV[0]

##</code><code>##

perldoc Getopt::Std
perldoc Getopt::Long