my $arg1 = shift @ARGV;