#!/usr/bin/perl -w

use strict;
use Carp;

eval {
    main();
};
if ( $@ ) {
    confess($@);
}

exit;

sub foo {
	my $aargh = shift;
	
	die $aargh;
}

sub main {
    foo "hello world\n";
}