#!/usr/bin/perl
use warnings;
use strict;

my $filename = '1.txt';
my $logfile  = '1.log';

open my $INPUT, '<', $filename or die "$filename: $!";
open my $LOG,   '>', $logfile  or die "$logfile: $!";
while (my $line = <$INPUT>) {
    chomp $line;
    my $status = unlink $line;
    my $error  = 'OK';
    $error = $! unless $status;
    print $LOG "$line: $error\n";
}
close $LOG;