file() in Perl

[shacky83]

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:

$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.

[shishii]

visto che in questo forum trovi programmatori PERL dovresti spiegare il significato delle funzioni PHP che usi in modo da poterle tradurre.