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