termimg

   1 #!/bin/sh
   2 convert -compress none -resize 66x23 - pgm:- |
   3 perl -nE '
   4 $_ eq "P2\n" or die "ascii pgm input required\n" if $. == 1;
   5 next if $. <= 3;
   6
   7 state @ch = split //, " .oO@";
   8 print $ch[ $_ / 256 * @ch ] for /\d+/g;
   9 print $/;
  10 '