Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"my @ra = (0, 0, 0, 1, 0);
...
 print 'succeeded!' if $test_succeeded;
"
succeeded!