Perl: lecture et ecriture ds 1 fichier

#!/usr/bin/perl -w

($f,$out) = @ARGV;
if (@ARGV!=2){
    print "Usage : $0 fichier_in fichier_out \n";
    die "$!\n";
}

open FICHIER, "$f";
open OUT, "> $out";

#Lire le fichire d'entrée

#Ecrire le fichier de sortie

close FICHIER;
close OUT;

#....
#$out nom du fichier de sortie
open OUT, "> $out";
#...
print OUT "J'ecris le contenu de la table de hachage hash que j'ai deja rempli auparavant dans mon joli programme perl\n";

foreach $i (sort keys %hash){
    if (defined($hash{$i})){
        print OUT "$hash{$i}\n";
    }
}

#...
close OUT;