JAPH 9

#!/usr/bin/perl

eval'require GD::Simple';die if $@;$i=GD::Simple->new($)*$]+$],$();$i->moveTo($]
+$],$)-($]*$]+$]+$]));$,='@',$@=$,|'/',$:=$@,++$@,$@++,$~=(++$@,++$@),$.=$",$_="
"|$,.(++$@,++$@).$~.++$~.$..($;=$,|'!').($^='.'|$,).('/'|$,).$~.($@=$,|'(').($"=
'%'|$,).(++$:,++$:,++$:).$..($^='/'|$,,++$^).$".$:.(','|$,).$..$@.$;.($,.$,|'#+'
).$".$:;$i->font($_);%_=(string,$_,fontsize,$]*$]+$]);while(($~,$@)=each%_){$i->
$~($@);}open _,'>\-';print _$i->png;close _;`xdg-open \\\\-`,sleep $],unlink'\-'