sub foo($);

sub foo { my ($bar) = @_;
    ...
}