#!/usr/bin/perl

use strict;

sub foo {
 my $name = shift || "anonymous monk";
 uc $name;
}

print foo, "\n";

bar('arturo');

sub bar {
 print foo, "\n";
 print &foo, "\n";
}