use Carp;

my_main(@ARGV);

sub my_main
{
  my $first = shift @ARGV;
  carp "Rubbish\n";
  exit;
}

##</code><code>##

$ argv 1
Bizarre copy of ARRAY in sassign at C:/progfile/Perl-5.8.8/lib/Carp/Heavy.pm line 45.