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

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