#!/usr/bin/perl -w 

use POSIX qw(strftime);
use Time::Local;

use strict; 

my @now = localtime();

my $timestamp = strftime "%Y%m%d%H%M%S", @now;
print "$timestamp\n";

my $systime = timelocal(@now);
print "$systime\n";

##</code><code>##

my $systime = time;
my $timestamp = strftime "%Y%m%d%H%M%S", localtime $systime;