my (
   $Carrier_Option,
   $printHelp,
   $version,
   $Nr_of_TP,
   $is_BS,
   $my_legend,
   $curr_dir,
);

GetOptions(
   "c|C|carriers=s"=>\$Carrier_Option,   #string
   "t|T|TP=i"=>\$Nr_of_TP,		 		 #numeric
   "h|H|Help"=>\$printHelp,				 #boolean
   "v|V|Version"=>\$version,			 #boolean
   "b|B|BS|bs|Bs"=>\$is_BS,				 #boolean
   "l|l|legend=s"=>\$my_legend,			 #string
   "a|A|altitude=i"=>\$BS_RadioHeight,
   "d|D|Directory=s"=>\$curr_dir,
);

##</code><code>##

perl Analyzer.pl -t 2 -c "4 1 2 3 4"

##</code><code>##

print "To process another log file, enter the path to the log file along with the options, or enter 'x' to exit: ";
my $New_User_Input=<STDIN>;
chomp $New_User_Input;

my $new_options=GetOptionsFromString($New_User_Input);