$ perl -wle'
sub meinefunktion($) { }
meinefunktion()'
Not enough arguments for main::meinefunktion at -e line 5, at end of line
Execution of -e aborted due to compilation errors.
$

format_c@linux:/media/sda1/Scripte> perl
sub test ($) {
        my $text = shift;
        $text ||= '';
        print $text,"\n";
}
# Test1
test('Hallo');
# Test2
&test();
# Test3
&test('Hallo','Duda');
# Test4
test('Hallo','Duda');

Too many arguments for main::test at - line 13, near "'Duda')"
Execution of - aborted due to compilation errors.
format_c@linux:/media/sda1/Scripte>