Select Code to Download

#!/usr/bin/perl
 
...
print $sock "hello world!";
close($sock);

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

Use of uninitialized value in print at ./socket_serv line 17, <GEN1> l
+ine 1.