Select Code to Download

my $NAME;
my $mobile;
...
GetOptions ('name' => \$NAME,'mobile' =>\$mobile,'place' =>\$place,'em
+ail' => \$email);
print"$$NAME\n,$$mobile";
#$Contacts->findByName("$$NAME") if defined $$NAME;