Select Code to Download

    #!/usr/bin/perl -w
    use strict;
...
        print;
    }
    close BOIN;

    Filehandle main::BOIN opened only for input at foo.pl line 8.
    Filehandle main::BOIN opened only for input at foo.pl line 9.