#!/opt/perl5/bin/perl

$THISDIR="links/";

opendir THISDIR, "$THISDIR" or die "AACK: $!";
@allfiles = grep !/^\./, readdir THISDIR; # get rid of .* files
closedir THISDIR;

foreach $link (@allfiles){
        $rc=readlink "$THISDIR$link";
        !$rc and print "READLINK err: $link\n";

        -f $rc or print "File $rc does not exist\n";
}