Select Code to Download

 #!/usr/bin/perl -w

use strict;
...
        #$dbh -> disconnect;

}#End of search Function

Give a list of words:   test,diamonds,perl
Give a file type (email, article):      article
Issuing rollback() for database handle being DESTROY'd without explici
+t disconnect() at search.pl line 26, <STDIN> line 2.