use Getopt::Long;
my $name="divakar";
my $age="24";

my $option=GetOptions("name"=>\$name,"age"=>\$age);
print "the options are $option\n";

if ($option)
{
		print "the option given is divakar\n";
}

if ($option)
{
		print "the option given is 24";
}

##</code><code>##

the options are 1
the option given is divakar
the option given is 24