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>