#!/usr/bin/env perl

use POSIX qw(strftime);

my $timestamp = strftime "%Y-%m-%e_%H:%M:%S", localtime;
print $timestamp;