use Getopt::Long;

my %opt = ();

GetOptions(\%opt,

	"file=s",	

	);

	die "No file specified : $!" unless $opt{file};

if ($opt{file})
{
print "File is $opt{file}!\n";
}