ottenere il path di un file

[ant21]

Ciao a tutti!

se io apro un file in lettura cosi :

$file = "/home/antonio/prova.txt";
open(FILE, "< $file") or die "Il path o il file non esistono!\n\n";

   
   while (!eof(FILE))
   {
      $riga = <FILE>;   
      print " $riga \n";
   }
   close(FILE);

come posso salvare in una variabile il path o directory di appartenenza del file "prova.txt"?

grazie

ciao