#! perl -slw
use strict;
use threads;
use threads::shared;

sub thread{
    my( $fileno ) = @_;
    open my $fh, "<&=$fileno" or warn $! and die;
    printf "%d:%s", threads->self->tid, $_ while defined( $_ = <$fh> );
    close $fh;
}

for my $file ( map{ glob $_ } @ARGV ) {
    open my $fh, '<', $file or warn "$file : $!" and next;
    printf "From main: %s", scalar <$fh> for 1 .. 10;
    printf "Fileno:%d\n", fileno $fh;
    threads->create( \&thread, fileno( $fh ) )->detach;
    printf 'paused:';<STDIN>;
}