#!/usr/local/bin/perl

use strict;

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

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

##</code><code>##

#!/usr/local/bin/perl

use strict;

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

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