Select Code to Download

#!/usr/bin/perl

...
    chomp $resp;
    return $resp;
}

#!/usr/bin/perl
use strict;
...
        print $writehandle $answer . "\n";
    }
}

rasto@frodo:~/work$ ./client.pl 
IN: GLOB(0x880fe78)     OUT: GLOB(0x880fe88)     ERR: GLOB(0x880fe28)
...
write handle is GLOB(0x880fe78)
writing galahad
rasto@frodo:~/work$