unlink $file or
    do
    {
        print "Error!";
        push( @list, $file );
    };