#!/opt/perl5/bin/perl
$THISDIR="links/";

opendir THISDIR, "$THISDIR" or die "AACK: $!";
@allfiles = grep !/^\./, readdir THISDIR;
closedir THISDIR;

foreach $link (@allfiles){
  $rc=readlink "$THISDIR$link";

  if ((-l "$THISDIR$link") && ! -e $rc){
    print "Target for link \[$link\]:\t does not exist\n";
  }elsif (-l "$THISDIR$link" && -e $rc){
    print "Target for link \[$link\]:\t $rc\n";
  }else{
    print "File \[$link\] found in links directory\n";
  }
}