programming-examples/perl/Subroutine/Return a reference from a sub.pl

#!/usr/bin/perl

use warnings;
use strict;

sub now { return \scalar(localtime) };

print "The time is ${&now}\n";