format_c@server:~> perl
sub test {
        my $wert = shift || 'default';
        print $wert,"\n";
}
print "Versuch1 mit Parametern:\n";
test('meinwert');
print "Versuch2 ohne Parameter:\n";
test();
Versuch1 mit Parametern:
meinwert
Versuch2 ohne Parameter:
default
format_c@server:~>