my $thread1 = new Thread \&Sub1;
my $thread2 = new Thread \&Sub2;


##</code><code>##

select (LOCALFILEHANDLE);
sleep(5);
print "hi";
sleep(5);
select(STDOUT);

##</code><code>##

select (ANOTHERFILEHANDLE);
sleep(4);
print "By";
sleep(2);
select (YETANOTHERFILEHANDLE);