use strict;
use Getopt::Long;

my $var;

sub usage{
   print "Usage: $0 --foo=bar\n";
   return;
}

GetOptions("foo=s" => \$var) and defined($var) or die &usage;

print "You typed: $var\n";