for my $file (@filelist) {
    unlink $file or print "<p>Unable to delete $file. Reason $!\n";
}