package L;

sub include {
    my $f = shift;
    my $r = do $f;
    unless (defined $r) {
        die "included from $f:\n$@" if $@;
    }
}

1;