#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

my $name; 
my $mobile; 

GetOptions ("name=s" => \$name,"mobile=s" =>\$mobile); 
print "$name\n$mobile\n";