#!C:/Perl/bin/perl -w
use DBI; 
use CGI ':standard'; 
print "Content-type: text/html\n\n";
# constants

my $dbh = DBI->connect('dbi:mysql:jobs_db','jobseeker','jobseekerpasswd')
or die "Connection Error: $DBI::errstr\n";
$sth = $dbh->prepare ("DELETE FROM jobs WHERE DateAdded < DATE_SUB(NOW(), INTERVAL 30 DAY)");
$sth->execute ();

my $pagesize = 5;

# variables
my $AccountID=param('AccountID');
my $locn= param('Country');
my $Function = param('Specialty');
my $reqpage  = param('reqpage') || 1;

if 

($Function eq ""||$locn eq "Select")

{

print "The FORM is INCOMPLETE. Please Go Back And Fill In All Fields.";

}

else {

# connect to database
my $dbh = get_dbh();