use Getopt::Long; GetOptions("file=s" => \$file); if ($file) { print "File name: $file\n"; }