Select Code to Download

} elsif ($get =~ /MESSAGE ([^ ]+) (.*)\n$/) {

sub get_line {
    my ($fh) = @_;
...
    warn do { use Data::Dumper; Dumper $buff{$fh} };
    return $line;
}

sub get_line {
    my ($fh) = @_;
...
    sysread($fh, $_, BUFF_SIZE, length) for $buff{$fh};
    return get_line($fh);
}