use Carp;

my_main(@ARGV);

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