Select Code to Download

#!/usr/local/perl-5.8.0/bin/perl

...
}
 
&mysub;

my $h = threads->new(\&mysub);
$h->join;

thread failed to start: no password prompt at ./expect.pl line 21.