Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
open (INPUT, "target.txt")   or die "can't read from target:$!\n";
...
close (INPUT);
close (OUTPUT1);
close (OUTPUT2);