http://qs321.pair.com?node_id=126843


in reply to perl -s is evil?

Curiously enough, if you try and use it all (in an == for instance, it reverts back, so it's not as scary as it looks, just a bit buggy:
#! /usr/bin/perl use strict; print "\$> = ", $>, "\n"; $> == 1000 and warn "eq"; print "\$> = ", $>, "\n";

perl -Tws evil.pl -\>=0 ouputs:
$> = 0 eq at evil.pl line 5. $> = 1000