my $param1 = shift @ARGV;