@rem = '--*-Perl-*--
@echo off
perl "%~dpnx0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
#!perl
#line 8
use strict;

print "\@rem = '--*-Perl-*--\n";
print "\@echo off\n";
print "perl \"%~dpnx0\" %1 %2 %3 %4 %5 %6 %7 %8 %9\n";
print "goto end_of_perl\n";
print "\@rem ';\n";
print "#!perl\n";
print "#line 8\n";

my @files=@ARGV;
for my $file (@files) {
  open(INFILE, '<', $file);
	print "open (STDOUT, '>', \"$file\");\n";
  print "print <<'EOT_UNLIKELY';\n";
	while (<INFILE>) {
	  die "Found EOT" if /^EOT_UNLIKELY/;
	  print;
	}
  print "EOT_UNLIKELY\n";
}

print "__END__\n";
print ":end_of_perl\n";

__END__
:endofperl