my $s= '^CMDLINE';


  ${$s} = join ' ', $0, @ARGV