Hello Monks

I need sometimes in my litte scripts date/time in nice format. I can use (on Linux machines):

my $date = `date +%Y-%m-%d_%H:%M`;
chomp $data;
[download]

or

my ( $ss, $mm, $hh, $mday, $mon, $year, $wday, $yday, $isdst ) = 
  localtime();
my $data = sprintf( "%d-%02d-%02d %02d:%02d",
   ( $year += 1900, $mon += 1, $mday, $hh, $mm ) );
[download]

or

use POSIX 'strftime';
my $date = strftime '%x %X.', localtime;
[download]

First is little and nice, but use external program.
Second pure Perl, but a little to long...
Third is almost OK, but is it good idea to use POSIX in 20 lines scripts?
In QandASection: dates and times I can't found nothing else

How do you do this in your's programs?