my $foo = shift;
print $foo,"\n";