perl -e 'my $file = shift; while(defined(my $link = readlink $file)) { print "LINK: $file\n"; $file = $link; sleep 1; } print "NOT LINK: $file\n"' foo