$DATE = `date +%Y-%m-%d`;
chomp $DATE;
$CURRDIR = '/home/'.$USER.'/'.$DATE;
chdir ($CURRDIR) || die "Couldn't change to $CURRDIR Reason: $!";

##</code><code>##

-sh-3.1$ perl chdirtest.pl
Couldn't change to /home//2007-07-17 Reason: No such file or directory at chdirtest.pl line 4.
##</code><code>##

$DATE = `date +%Y-%m-%d`;
chomp $DATE;
my $USER=getlogin();
$CURRDIR = '/home/'.$USER.'/'.$DATE;
chdir ($CURRDIR) || die "Couldn't change to $CURRDIR Reason: $!";