#!/usr/bin/perl -wT
use strict;
# clean up the environment for CGI use
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
$ENV{'PATH'} = '/bin:'; # you may need more path info

my $db_file = 'c:/links.db';
print "Find what? ";
chomp(my $find = <>);

# this escapes regex metachars and makes it safe 
# to interpolate $find into the regex in our grep.
$find = quotemeta $find;
# this untaints $find - we have made it safe above
# using the quotemeta, this satisfies -T taint mode
$find =~ m/^(.*)$/;
$find = $1;

my $start = time();

open (FILE, "<$db_file") or die "Oops can't read $db_file Perl says $!\n";
my @db_file = <FILE>; # get the whole database into an array in RAM
close FILE;

# do the search
my @lines = grep {/$find/i}@db_file;
my $time = time() - $start;
print "Search took $time seconds\n";

if (@lines) {
    print "Found\n@lines\n";
} 
else {
    print "No match\n";
}