Return a reference from a sub
#!/usr/bin/perl use warnings; use strict; sub now { return \scalar(localtime) }; print "The time is ${&now}\n";