#!/usr/bin/perl -w


&foo("hi");

sub foo {
	$a =shift;
	print "I got an $a\n";
}
