C:\test>type junk1.pl
#! perl -slw
use strict;
print "?$_?" for <>;

C:\test>junk1
hello world
^Z
?hello world
?

C:\test>junk1 junk1.pl
?#! perl -slw
?
?use strict;
?
?print "?$_?" for <>;
?