kentfredric/dupe-stdin-perl.pl

## dupe-stdin-perl.pl
seek*DATA,0,1-open*STDIN,'<&=DATA';print"^_^\n";exec'perl -x';__DATA__
#!/usr/bin/env python
   lah de
      magical code dah
#!perl
print "Not as magical as you think\n";
seek*STDIN,0,0;exec'perl'
	seekDATA,0,1-openSTDIN,'<&=DATA';print"^_^\n";exec'perl -x';__DATA__
	#!/usr/bin/env python
	lah de
	magical code dah
	#!perl
	print "Not as magical as you think\n";
	seek*STDIN,0,0;exec'perl'