#!/usr/local/bin/perl -w

use strict;
use POSIX qw(strftime);

my $now_string;
$now_string = strftime '%Y%m%d.%H%M%S', localtime;
my $now_string2 = strftime '%Y%m%d%H%M%S', localtime;