ls -1 pub/release-$1 | perl -e 'my $rel = shift; while(<STDIN>) { chomp; next unless /^\w+$/; print "ln -sf release-$rel/$_ pub/current_$_\n" }' $1 | bash