http://www.perlmonks.org?node_id=290279


in reply to (humor)Re: Blinking a row
in thread Blinking a row

You can get that effect with a perfectly good monitor too, if you do it right. Set the monitor refresh rate to sixty hertz, position the monitor under fluorescent lighting, and set your screen colours to black on bright white. Voila, an eyesore. Alternately, use an older monitor (a VT510 will do nicely) positioned a couple of feet from a running microwave oven. 

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/

[download]

In Section Seekers of Perl Wisdom