string manipulation eller dateformat

Fx:

@a = localtime(time() + 180*24*60*60);
$dato=sprintf("%02d/%02d/%02d",$a[3],$a[4]+1,(1900+$a[5])-2000);
print "$dato\n";

Eller dette, hvis dit script skal holde til år 2100 ;)

$dato=sprintf("%02d/%02d/%02d",$a[3],$a[4]+1,$a[5]%100);

perfekt... tusind tak for svaret. lav et svar så jeg kan lukke spg...

Tak, men jeg samler slet ikke på point. Svar selv, accepter eget svar.

Ok mange tak for det, jeg har lige endnu et lille spg. Jeg vil gerne returnere $dato fra perlscriptet til et unixshell script.
#!/bin/perl
funktion();
sub funktion {
@a = localtime(time() + 90*24*60*60);
$dato=sprintf("%02d/%02d/%02d",$a[3],$a[4]+1,(1900+$a[5])-2000);
return $dato;
}
Jeg har puttet det ind i en sub routine fordi der kom en fejl hvis jeg bare skrev return $dato;
Men når jeg kalder det fra unix shell script på følgende måde

DAtoNEXT=`dato.pl`  # her skulle DatoNEXT gerne blive sat med værdienfra perl, men intet sker.
Jeg har på fornemmelsen at det er et elelr andet i perlscriptet.

har selv løst det...

En "print" vil være en god ting ;)

lukkes