my $arg1 = $ARGV[0];
my $restargs = "@ARGV";
$restargs=~s/$arg1 //g;