for my $file (@files) { unlink $file or warn "Couldn't remove '$file': $!"; };