#!/usr/bin/perl -wT
use strict;
use POSIX qw(strftime);

my $now = get_now();
print "Now = $now\n";

sub get_now {
  return strftime '%Y%m%d%H%M%S', localtime();
}

=OUTPUT
Now = 20011023150416