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