Hi Monks, I got it working this way.

my($var1 ,$var2 ,$var3 ,$var4 ,$var5) = split (/ /, scalar (localtime(
+time - 86400)));
    my $dateformat = "$var2$var3$var5";
[download]

Thanks NT