my $script = join " ", $0, @ARGV;
print "$script \n "; die;