Perl / Copier un fichier

Ce script copie un fichier.

open(ORIGINAL,"original.txt") || die "Impossible de d'ouvrir le fichier original";
open(COPIE,">copie.txt") || die "Impossible de d'ouvrir le fichier copie";
while (<ORIGINAL>)
    {
    print COPIE $_;
    }
close(COPIE);
close(ORIGINAL);