@{[scalar .... ]}

##</code><code>##

#!/usr/bin/perl -wT
use strict;

print "Yours: ${\localtime()}\n";
print "Mine:  @{[scalar localtime() ]}\n";

__END__

=head1 OUTPUT
Yours: 0
Mine:  Thu Nov 15 18:27:10 2001