INIT {
    # Print the code before __DATA__ and pretend nothing happened...
    if ( defined fileno *main::DATA ) {
        # Fetch code or abort...
        eval {
            my $pos = tell *main::DATA;
            seek *main::DATA, 0, 0 or return;
            my $code;
            read *main::DATA, $code, $pos or return;
            print $code or return;
        };
    }
}