use strict;

sub foo()
{
  my $param = shift;
  print "Param: [$param]\n";
}


foo;
foo(1);

##</code><code>##

$perl proto.pl
Too many arguments for main::foo at proto.pl line 11, near "1)"
Execution of proto.pl aborted due to compilation errors.

##</code><code>##

perldoc perlsub