sub foo { sleep(60);
          print "foo\n"; }
my $p = 50;
while ($p > 5){
sleep(5);
print "bar\n";
&foo;  # do not wait for return please 
}