Ciao a tutti.
Non so nulla di Perl, ma purtroppo devo tradurre uno script da PHP a Perl.
La parte incriminata, che non so come tradurre, è la seguente:

codice:
$contents = file($stringa);
$risposta = trim($contents[0]);
$len = strlen($risposta);

if($risposta == "OK"){
  $msg = "Tutto bene";
}
else{
  $msg = "Errore";
}
Qualcuno mi può dare una mano?
Il problema principale è che non conosco il nome delle rispettive funzioni in Perl.

Grazie mille in anticipo!
Ciao.