seek DATA,0,0;print<DATA>__END__

##</code><code>##

open 0;print<0>