clear;perl -we 'ioctl STDIN,19296,$t=pack a8888;while(++$o){select"","","",0.01;print"\e[H";for$v(0..19){$x=0.5*$_+3e-2*$v*($_-39)+0.5*$o,print vec($t,8-$x%9+8*int(0.9*$v+1.5-3e-3*($_-39)**2)+256*ord substr("Just another Perl hacker  ",$x/9%26),1)?"#":" "for 0..78;print$/}}'