my $glob = "hm";
unless($pid) {
    $glob = "Gruß vom Kind an die Mutter";
    outside($glob);
    CORE::exit;
}
sub outside {
    print "$_[0]\n";
}