#!/usr/bin/perl
print "#!$^X";
if ( @ARGV ) {
    print ' ' . join ' ', map "'\Q$_\E'", @ARGV;
}
print "\n#line 2\nlocal \$/;eval unpack 'u*', <DATA>;\n__DATA__\n";

undef $/;
print pack 'u*', <STDIN>;