open my $fh, "<", $0;
print <$fh>;

##</code><code>##

use O 'Deparse';
do something

##</code><code>##

seek *DATA, 0, 0;
print <DATA>;
__DATA__