#!/usr/local/bin/perl

use strict;

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

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

##</code><code>##

#!/usr/local/bin/perl

use strict;
my $myname = undef;

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

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