#!/usr/bin/perl
use warnings;
use strict;
$_=<<'eof';eval $_;
print "#!/usr/bin/perl\nuse warnings;\nuse strict;\n\$_=<<'eof';eval \$_;\n${_}e
of\n"
eof