在Perl中，copy函數用于將一個文件的內容復制到另一個文件中。它的使用方式如下：
copy($source, $destination) or die "Unable to copy file: $!";
其中，$source是源文件的路徑，$destination是目標文件的路徑。如果復制成功，copy函數會返回1；如果復制失敗，它會返回undef。為了處理復制失敗的情況，可以使用die函數打印錯誤信息。
以下是一個完整的示例：
use File::Copy;
my $source = "source.txt";
my $destination = "destination.txt";
copy($source, $destination) or die "Unable to copy file: $!";
print "File copied successfully.\n";
在上述示例中，源文件為source.txt，目標文件為destination.txt。如果源文件存在且可讀，目標文件不存在或者可寫，那么源文件的內容將被復制到目標文件中。如果復制成功，程序會打印"File copied successfully."；如果復制失敗，程序會打印錯誤信息并退出。
