#!/usr/bin/perl

use strict;
use Getopt::Long;

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

##</code><code>##

perl test_getopt.pl -file -name

##</code><code>##

File: 1
Name: 1