perl -MDDS -le " @a = qw/ perl -Tle print(fileno(shift)) -- /; for(0..1222){ push @a, chr $_; $r = system @a; $r and Dump\@a; pop @a; } "