#!/usr/bin/perl -w
*ARGV = *DATA{IO};
do "/usr/bin/perl/myscript.pl";
__DATA__

##</code><code>##

#!/bin/sh
perl /usr/bin/perl/myscript.pl "$0"; exit 0

##</code><code>##

#!/bin/sh
perl /usr/bin/perl/myscript <<ENDDATA; exit 0