moritz@trudi:~/src/parrot>perl -MCGI -wle 'my $x = new CGI; my $y = new CGI; print $x == $y; print $y == $y'

1