Salve a tutti
Sto utilizzando uno script in perl che una volta lanciato con un parametro esterno numerico stampa a video una data passata.

Mi spiego meglio con un esempio
se lancio lo script data_vecchia.pl con l'opzione 2 mi stampa a video la data di 2 giorni fa
es. oggi è 20050124

/home/script =>data_vecchia.pl 2
20050122

Il mio problema è il seguente..come faccio ad invertire il tipo di calcolo ovvero impostare il parametro all'interno dello script e passare come opzione una data qualunque ?
es.

/home/script =>data_vecchia.pl 20050118
20050116

in calce lo script

------------------------------------

#!/usr/bin/perl
use POSIX qw(strftime);
$before=$ARGV[0];
$periodo=strftime "%Y%m%d", localtime(time - $before*86400);
print $periodo;

---------------------------------------

grazie per l'aiuto

Ciao