use strict;
use warnings;

sub foo ($);

foo('bar');

sub foo ($){
    print "foo called: @_\n";
}