@rem =('
@echo off
echo Hello World from a plain old DOS batch file
goto end
');
print "Hello World from perl\n";
__END__
:end