DOS + C + Perl

rem (int tr/*//) if (0); $_=<<"EOS";
@echo Hello world
@goto END_OF_BAT
rem */) {printf("Hello world\n");return;} main () {rem(1); return 0;} /*
EOS
print "Hello, world";
__END__
:END_OF_BAT
rem */