#!/usr/bin/perl 

use strict; 
use Time::Piece; 

sub time_repr { 
	$_[0]->strftime("%F %T"); 
} 

my $t = localtime; 

print 
	"ref in var OK: ", (time_repr($t)), "\n\n",

	"not elegant: ", (time_repr(do { my $x = localtime() })), "\n\n",

	"error 1: ", eval { (time_repr(localtime)) }, $@ , "\n",
	"error 2: ", eval { (time_repr(\localtime)) }, $@ , "\n",
	"error 3: ", eval { (time_repr(\(localtime))) }, $@ , "\n",
;