#! /usr/local/bin/perl -w
  use strict;

use strict;
use warnings;
 
my ($name, $number) = @ARGV;
 
if (not defined $name) {
die "Need name\n";
}
 
if (defined $number) {
print "Save '$name' and '$number'\n";
# save name/number in database
exit;
}
 
print "Fetch '$name'\n";



  my $parm1 = shift(@ARGV);
  my $parm2 = shift(@ARGV);
  my $parm3 = shift(@ARGV);
  if ($ARGV != 4 ) { 
     print "$ARGV Use: pgm p1 p2 p3 \n";
     }
  else {
	  print "parm-1 ", $parm1," ",
        	"parm-2 ", $parm2," ",
	        "parm-3 ", $parm3,"\n";
      }