Help for this page

Select Code to Download

Select or download this

use warnings; # needs 5.6.0 or newer,
# $^W = 1;    # for older
use strict;

Select or download this

sub search_database {
    my $database = shift;
...
    close DB or die $!;
    \@results;
}