#!/usr/bin/perl -w

use File::Spec;
use File::Basename;
use Cwd 'realpath';

my @symlinks;

for my $arg (@ARGV) {
    open (LINKS, "find \"$arg\" -type l |") || die("Couldn't find symlinks in '$arg'.");
    push @symlinks, <LINKS>;
    close LINKS || die("Error finding '$arg' while closing.");
}

chomp @symlinks;

for my $link (@symlinks) {
    my $linked = readlink($link);
    defined($linked) || die("Couldn't read link for '$link': $!");
    my $linkdir = dirname($link);

    my $reallinked = File::Spec->abs2rel(realpath("$linkdir/$linked"));
    print "$reallinked $link\n";
}