use Time::HiRes qw/ time /;

my $u_sec = time;
my @date = localtime($u_sec);

my $format = sprintf(
    "%4d%02d%02d%02d%02d%02d(%06d)",
    $date[5] + 1900,
    $date[4] + 1,
    $date[3],
    $date[2],
    $date[1],
    $date[0],
    substr($u_sec, index($u_sec, '.') + 1)
);
print $format, "\n";