#!/usr/bin/perl
$^W = 1;
use strict;
my @notfound;
for my $filename (qw(/etc/readahead/boot /etc/readahead/desktop)) {
    if ( -r "$filename" ) {
        open(ROOT,"<", $filename) or die("Cannot open $filename: $!\n");
        while (<ROOT>) {
            chomp;
            push @notfound, $_ unless -e;
        }
        close(ROOT);
    }
}
if (@notfound) {
    print "The following files are listed in /etc/readahead/ but do not exist:\n";
    foreach (@notfound) { print "$_\n"; }
}

