Select Code to Download

#!/usr/local/bin/perl
use IO::Socket;
...
    if ($this_line =~ /STOP/i) { last; }
}
close $server;