Select Code to Download

 
#!/usr/local/bin/perl5.00506 -Tw
# add the -Tw for testing
...
close(LOGFILE);
print "Logged message successfully\n";
exit;

#!/usr/local/bin/perl/perl -w 
 
...
print ("$answer\n");
close($socket);
exit;