perl -ne 'chop;@F=split("/",$_); print "ln -s ",$_," Imakefile.",join(".",@F[6..$#F-1]),"\n"' im.list > im.sh