foreach my $link (keys(%links)) {
	my $target = $links{$link};
	print $fh "ln -s $target $link\n";
    }