package Silly::Die;

    sub import {
        my $class  = shift;
        my $caller = caller;
        no strict 'refs';
        *{"${caller}::trying"} = \&{"${class}::trying"};
    }

    sub trying { $! }

    1;