#!/usr/bin/perl

use strict;
use Getopt::Long;

my ( $file, $name );
GetOptions( file => \$file, name => \$name );
print "File: $file\nName: $name\n";