#!/usr/local/bin/perl

use strict;

myname();
print "my name is $myname\n";

sub myname {
	my $myname = "bill";
	return $myname;
}