use Getopt::Long;

GetOptions("file=s"  => \$file);

if ($file) {
    print "File name: $file\n";
}