No cigar.

#!/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";
}
[download]

I don't get a stack trace. Once it has finished the eval, the stack is no longer there.