use 5.10.0;$n=2;say"| "x$_,"+","-"x(16*$n-4*$_+13),"+"," |"x$_ for 0..4*$n+3;$p="| "x(3*$n+2);say"$p+ | ","| "x2x$n,"+ $p|";$p=~s/..//,$q="-"x(4*$_-1),say"$p+$q+ ","| "x(2*$n-2*$_+1),"+$q+ $p|"for 1..$n;$p=~s/..//;say$p,("+---"."-"x4x$n)x2,"+ $p|";$p=~s/..//,$q="-"x(4*$n+3)."-"x4x$_,say"$p+$q+ | ","| "x2x($n-abs$_),"+$q+ $p|"for-$n..$n;say" "x(8*$n+6),"+----$q+"

paste this into

http://www.tutorialspoint.com/execute_perl_online.php

or your fav perl interpreter (play around with the value of $n)