Como copiar um arquivo

Problema

Você precisa copiar um arquivo.

use File::Copy;

A primeira solução que poderia vir à mente é usar uma chamada ao sistema operacional (system() ou backticks). Mas esta solução não é portável.

A melhor solução é usar o módulo File::Copy, que vem com Perl e pode fazer uma cópia em múltiplas plataformas.

use File::Copy;

copy( $original, $new_copy ) or die "Copy failed: $!";