snippet liz Some people need <code>strftime()</code> but can't use POSIX::strftime for some reason. This subroutine will handle most cases. Adapt, augment the conversion hash if you need more features. <CODE> sub strftime ($@) { my ($format,$second,$minute,$hour,$day,$month,$year) = @_; my %convert = ( Y => $year + 1900, m => sprintf( '%02d',$month + 1 ), d => sprintf( '%02d',$day ), H => sprintf( '%02d',$hour ), M => sprintf( '%02d',$minute ), S => sprintf( '%02d',$second ), ); $format =~ s#%(.)#$convert{$1}#sg; $format; } print strftime( '%Y%m%d.%H%M%S', localtime() );</CODE>