Select Code to Download

mkdir a
mkdir b
...
touch b/foo
ln -s S/foo foo
ln -s S/foo S/foo

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