$SIG{ __DIE__ } = sub {
    require Carp;
    Carp::Cluck( @_ );
    while( 1 ) {
        my $code = <STDIN>;
        print eval $code;
    }
};