use Thread;

$par="ciao";
$thr = new Thread \&passaTh, $par;
sub passaTh{
    sleep(3);
    print "par thread ".$_[0];
}