Select Code to Download

#!perl -sw
print $xyz,$/ if $xyz;

__END__

C:\test>210020 -xyz
1
...
fred

C:\test>

C:\test>assoc .pl
.pl=perl_script
...
perl_script=e:\perl\bin\perl.exe -sw "%1" %*

C:\test>

#!perl -sw
use strict;
...
 time: 1036283985

C:\test>