c:/dev/fun $ perl lec.pl 
1..1
ok 1 - 'Finding $x's square. Twice!' (1000 attempts)