Select Code to Download

#!/Perl/bin/perl -w
# Server Test
...
close $new_catcher;
data_socket($input_sysid);
# Server End

#!/Perl/bin/Perl -w
# W32 Agent
...
if ( $ct == 50 ) { sleep 60;print "Sleeping\n"; }
}
# End Client