#! perl -slw
use strict;
use IO::File;
use threads;

sub thread{ 
	my $fh = shift;
	print for <$fh>;
	return;
}

my $io = new IO::File( 'junk', 'r' ) or die $!;

my $thread = threads->create( \&thread, $io );

$thread->join;

$io->close;

__END__
P:\test>395373
This is junk

and some more junk

and yet more junk

this is line 4 of junk