%messages = (
   1 => { 
           'de' => 'Es sind keine Neuigkeiten vorhanden',
           'en' => 'No news',
           'fr' => 'Il ya rien du tout',
   },
   2 => { 
           'de' => 'Datei kaputt',
           'en' => 'Database is corrupted',
           'fr' => 'Rien ne va plus',
   },
   # usw.
);


$lang = 'de';

if (-M $dateiname > 90) {
  print $messages{1}->{$lang};
  exit;
}