#!/usr/bin/perl
use IO::Select;

open $fh, '/tmp/test_file';
$sel = new IO::Select( $fh );

while(@ready = $sel->can_read) {
	print "looping\n";
	foreach $h (@ready) {
		if ($h == $fh) {
			print "reading from fh\n";
			while ($buf = <$h>) {
				print $loop++," $buf";
			}
		} else {
			print "handle is unknown\n";
		}
	}
}