use Carp;

my_main(\@ARGV);

sub my_main
{
  my $first = shift @{$_[0]};
  carp "Rubbish\n";
  exit;
}