Select Code to Download

$data = '';
$data .= $buffer while sysread( $fh, $buffer, 1 ) and $buffer ne "\n";

die "Can't write to server!\n" unless $server->can_write
syswrite($sock, "$data\n" );

if ( $client->can_write ) { 
  syswrite( $fh, "$data\n" );
}

#! /usr/bin/perl -w
use strict;
...
}

$poe_kernel->run();