my $myname = myname();
# or
print myname(), "\n";