use Fatal;
import Fatal 'foo';

sub foo {
my $test = rand;
return $test if $test > .5;
}

my $test = foo();
print $test;