@echo off
REM S.Chudley (www.chudley.me) : Embed Perl into a batch script

echo Now we're in a batch file
perl -x -S %0 %*
goto endofperl

@rem ';
#!/perl

print "Now we're in a Perl script - type something... ";
chomp(my $a = <STDIN>);
print "You typed '$a'\n";

__END__
:endofperl

echo Now we're back in a batch file!