82 ! switching from while to for and saving 2 characters :

for($n=20,$i=1;$n;$i*=-1){map{print"\e[$a;${b}H@";${$n>$_?*b:*a}+=$i}1
+..2*($n-=2)}
[download]

__________________
Hope this helps