#!/usr/bin/perl -w

use strict;
use warnings;
use Date::Format;

my @lt = localtime();
my $timestring = strftime('%c', @lt);