# echo|perl thisscript
use strict;
use warnings;
use threads;

for (my $i = 1; $i < 3; $i ++) {
    threads->create(\&abc)->detach();
}
<>;

sub abc {
}    

##</code><code>##

#perl
use strict;
use warnings;
use threads;
for (my $i = 1; $i < 3; $i ++) {
    threads->create(\&abc)->detach();
}
sleep 1;
sub abc {
}