sub foo{
print "$_[0]\n";
}
sub bar{
&foo;
}
bar("hi"); # prints hi