1  #!/usr/bin/perl -wT
     2
     3  use DBI;
     4  use strict;
     5  use CGI;
     6  use CGI::Carp qw(fatalsToBrowser);

    86  ##Start database connections######
    87  my $database = "db";
    88  my $db_server = "localhost";
    89  my $user = "user";
    90  my $password = "password";
    91
    92  ##Connect to database, insert statement, & disconnect #
    93  my $dbh = DBI->connect("DBI:mysql:$database:$db_server", $user, $password);
    94
    95  my $statement = "SELECT DISTINCT city FROM table WHERE state=? AND approved = 'yes' ORDER BY city";
    96
    97  my $sth;
    98  $sth = $dbh->prepare($statement) or die "Couldn't prepare the query: ".$sth->errstr;