how to use getOptions()

[prjain]

my $NAME;
my $mobile;
my $place;
my $email;

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

Hello All,
In The above code no value is getting saved in variable $$NAME,because of which the function findByName also not working.As by running the command "perl test.pl --name xyz" I m getting no output while it should print xyz. Please suggest me why I am nt getting the appropriate o/p. Your valuable suggestion will help me a lot. Thanks in advance !!