Select Code to Download

sub call_cmd{

...

print "I'm here";
}

foreach(@machines){
    my $_ = threads->create(thread_creation,$_);
...
}

}