Select Code to Download

enter file name  (you must specify the file name and press Enter)
Test.file
...
enter name for output file (you must specify a name for the output fil
+e, eg ttt and press Enter)
Result.file
reading Test.file; writing Result.file

#! perl -slw
use strict;
...

print "$progname ended: status: ", $? >>8;