Thanks all for your help
I have tried to implement what you guys have advised heres the code:
#!c:/perl/bin/perl -wT
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use vars qw($Query $sth $dbh $Value @results @row);
$Query = new CGI( );
use DBI;
$dbh = DBI->connect('DBI:mysql:exelstock')
or die "Cannot connect: " . $DBI::errstr;
That's simply because, as the error message says, DBI::db doesn't have an execute method. Try changing it from $sth = $dbh->execute(); to $sth->execute();
Also, please use code tags when posting code. Thanks.