Select Code to Download

sub get_schoolname( $ )
{
...
    close( SCHOOLDATA );
    return( $schoolname );
};

use Test::More tests => 4;

...
    is(get_schoolname(-1), undef, 'bad id rejected');
    is(tell(*SCHOOLDATA{IO}), 0, 'filehandle still open');
};