in somefile...
bla bla bal
#!perl
execute()
__END__
bla bla bla