Select Code to Download

Trying to aquire lock on log
Connection Established
Lock aquired

#!/usr/bin/perl -w
use strict;
...
close $sock;

exit;