sub newprint {
    my $x = shift;
    return sub {
        my $y = shift;
        print "$x, $y!\n";
    }
}
$h = newprint('Howdy');
$g = newprint('Greetings');

# ...

&$h('world');  # Ausgabe: Howdy, world!
&$g('earthlings');   # Ausgabe: Greetings, earthlings!