Select Code to Download

#!/usr/bin/perl

...
die Dumper(\@database);
tbl_srch 'John', 'Smith';

 perl sql.pl
...
          undef,
          undef
        ];