use Getopt::Long;
my $name;
my $age;

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

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

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