#!/usr/bin/perl
#sloader
use SelfLoader;
foobar();

__DATA__
sub foobar {
    print "foobar!\n";
}

##</code><code>##

#!/usr/bin/perl
#sloader-exec
close(STDIN);
exec "./sloader";