[host1]$ cat test.pl
use Test::More tests => 2;
 
sub for{
my $pid = fork;
if($pid == 0 ){
}else{}
waitpid($pid,0);
}
 
$a = "hi";
ok ("hi" eq  $a);
ok("1" eq &for());