如何使用Perl将数据从有缺陷的DVD复制到我的硬盘？

#!/usr/bin/perl

use strict;
use warnings;
use File::Copy;
use File::Basename;

# 检查DVD驱动器
my $dvd_drive = "/dev/dvd";

if (-e $dvd_drive) {
    # 创建目标文件夹
    my $destination_folder = "/path/to/destination/folder";
    mkdir $destination_folder unless -d $destination_folder;

    # 获取DVD上的文件列表
    opendir(my $dh, $dvd_drive) or die "无法打开DVD驱动器: $!";
    my @files = readdir($dh);
    closedir($dh);

    # 复制数据
    foreach my $file (@files) {
        next if ($file eq "." or $file eq "..");

        my $source_file = "$dvd_drive/$file";
        my $destination_file = "$destination_folder/" . basename($file);

        eval {
            copy($source_file, $destination_file) or die "无法复制文件: $!";
        };

        if ($@) {
            # 处理复制过程中的错误
            print "复制文件 $file 时出现错误: $@\n";
        } else {
            print "成功复制文件 $file\n";
        }
    }
} else {
    die "找不到DVD驱动器";
}