use strict;

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


foo;
foo(1);