Filehandle OUTPUT opened only for output at C:\strawberry\perl\bin\trial.pl line 9.
Use of uninitialized value in string eq at C:\strawberry\perl\bin\trial.pl line 24, <BACT> line 17.