Help for this page

Select Code to Download

Select or download this

for my $file (qw(files.txt data.txt)) {
    unlink($file)
        or $!{ENOENT}
        or die("Unable to unlink '$file': $!");
}

Select or download this

my $success = 1;
for my $file (qw(files.txt data.txt)) {
...
}

die("Unable to cleanup") if !$success;