Select Code to Download

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

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

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