## @nn = localtime( timegm( reverse @nn ) );
##$nn[4]++;               # Make month 1-based (ugh)
##$nn[5] += 1900;         # (ugh)
##$stamp = sprintf "%d%02d%02d-%02d:%02d:%02d%s",
use Time::Piece qw/ localtime ;
$stamp = localtime(  timegm( reverse @nn ) )->strptime('%Y%m%d-%H:%M:%S').$f;