my $bar;
sub foo{
  $bar=time();
  sleep 5;
  return $bar+20;
}