Help for this page

Select Code to Download

Select or download this

    use Test::More;
    open my $foo, "<", "somefile.txt" or die;
    () = <$foo>;
    plan tests => 10 + $.;

Select or download this

    {no warnings;
     use Test::More plan => 10 + `wc -l "somefile.txt"`}