Cantor

Score: 84.21 (pass)

My first time golfing, but since I have such a good score, I am reluctant to enter as a Beginner.

#!perl
$r='-';while($ARGV[0]--){$w='';$l=length$r;while($l--){$w.=' '}$r.=$w.$r}print"$r\n"