Select Code to Download

sub incoming_data {
    if ($sel->can_read(1)){
    my $input = <$sock>;
    $input =~ s/\r\n//g;

my $input;
sysread ($sock, $input, 1024);
# that will not block gtk2
print $input;