if (defined (my $ret = $p->line($test))) {