come si ottiene la data in PERL????????