sub gmtime() {
  #do something
}

##</code><code>##

#!/usr/bin/perl
print scalar gmtime,"\n";
print &gmtime;