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