#!/usr/bin/env perl
use warnings;
use strict;

my($day, $month, $year) = (localtime)[3,4,5];
$month = sprintf '%02d', $month+1;
$day   = sprintf '%02d', $day;
print $year+1900, $month, $day, "\n";
[download]

Prints:

20080311
[download]

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(t
+ime);
my $yyyymmdd = sprintf "%.4d%.2d%.2d", $year+1900, $mon+1, $mday;
[download]

use DateTime;
print DateTime->now(time_zone => "local")->ymd('');
[download]

-sam

use POSIX 'strftime';

my $date = strftime '%Y%m%d', localtime;

[download]

Here's one I like:

my $ymd = sub{sprintf '%04d%02d%02d',
    $_[5]+1900, $_[4]+1, $_[3]}->(localtime);
[download]

The interesting thing about it is the dataflow aspect, how you take a stream of variables and modify them on the way to their destination. Having this particular tool in you toolbox can come in handy from time to time.