#!/usr/bin/perl use CGI; use CGI::Carp qw(fatalsToBrowser); use vars qw($Query $dbh $sth $Value); $Query = new CGI( ); use DBI; $dbh = DBI->connect("DBI:mysql:exelstock") or die "Cannot connect: " . $DBI::errstr; $Value = $Query->param('Value'); $sth = $dbh->prepare("SELECT * FROM walstock WHERE name='$Value'"); $dbh->execute($sth); print "Content-type: text/html\n\n"; print "\n"; print "\n"; while (@results = $sth->fetchrow_array) { print "@row\n"; } $sth = $dbh->finish(); $dbh->disconnect(); print "\n"; print "\n";