Select Code to Download

#!/usr/bin/perl
use strict;
...
ok(!$p->rec('1 foo bar'));
ok( $p->rec('3 foo bar baz'));
ok(!$p->rec('3 foo bar baz flab'));