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