rbaecker@www-devel-rbaecker ~ $ cat prototypes.pl
#!/usr/bin/perl

use strict;
use warnings;

test('hallo');

sub test($) {
    print @_,"\n";
}

rbaecker@www-devel-rbaecker ~ $ perl prototypes.pl
main::test() called too early to check prototype at prototypes.pl line 6.
hallo