Select Code to Download

#!/usr/bin/perl
use warnings; 
...
printf "%d:%s", threads->self->tid, $_ while defined( $_ = <$fh> );
close $fh;
}

========
zentara wrote:
...
$q->enqueue($fh->fileno());
sleep 1;