programming-examples/perl/SystemFunction/GetOptions(file=s arrow $file).pl

use Getopt::Long;

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

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