#!/usr/local/bin/perl

$dir = "/u/janedoe";
opendir(MYDIR, $dir);
while ($name = readdir(MYDIR)) {
        if (-l $dir . "/" . $name) {
                print ("$name is linked to ");
                print (readlink($dir . "/". $name) . "\n");
        }
}
closedir(MYDIR);
