Z:gnu-www-ja-helloworld--0025c5-=23!/usr/local/bin/perl=0A $msg=3D"/en

$msg="Hello, world.\n"; if ($#ARGV &gt;= 0) { while(defined($arg=shift(@ARGV))) { $outfilename = $arg; open(FILE, "&gt;" . $outfilename) || die "Can't write $arg: $!\n"; print (FILE $msg); close(FILE) || die "Can't close $arg: $!\n"; } } else { print ($msg); } 1; \
 * 1) !/usr/local/bin/perl