my $now = sub (return scalar(localtime time)); # Creates a subroutine reference

##</code><code>##

  print $now->(), .... # Makes a  call to the sub, each time $now->() is used