#!/usr/local/bin/perl -w

use strict;

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

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