#!/usr/bin/perl -w

use strict;
use threads;

sub SubFunction;

print "main: ".threads->tid."\n";
my $thread;
$thread = threads->new(\&SubFunction, "localhost");
$thread = threads->new(\&SubFunction, "localhost");
$thread = threads->new(\&SubFunction, "localhost");
$thread = threads->new(\&SubFunction, "localhost");
$thread = threads->new(\&SubFunction, "localhost");

# loop through threads and wait for remaining 
foreach $thread (threads->list) {
    #print "remaining threads: ".threads->list."\n"; 
    if ($thread->tid && !threads::equal($thread, threads->self)) { 
        $thread->join; # join childs only
    } 
}


sub SubFunction {
    print "- thread: ".threads->tid."\n";
    #system("ping $_[0]");

    my $fh;
    open($fh, '-|', "ping.exe $_[0]") or die "couldn't open pipe!";
    print while (<$fh>);
    close($fh);
}