System Functions Perl

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