Select Code to Download

#!/usr/bin/perl
use warnings;
...
print $conn3 "You're there, #3... did you say [$rec3]?\n";
 
$_->close foreach ($conn3, $conn1, $sock);