#!/usr/bin/perl -w

foreach $file (@ARGV)
  {
    if (-l $file)
      {
	$link = readlink $file;
    

	if ( !defined $link )
	  {
	    print STDERR "$0: symbollic link $file is empty!?!?\n";
	    next;
	  }

	$file =~ /(.*?)\/[^\/]*$/;
	$dirname = ($1 or ".");

	$link = $dirname . "/" . $link;
	print "$file\n" unless -e $link;
      }
  }