#!/usr/local/bin/perl

use strict;

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

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