#!/usr/bin/perl -w # dbusers - manage MySQL user table use DBI; use strict; my $dbh = DBI->connect('DBI:mysql:falcon:localhost:3306', 'falcon', 'froonoo!', { RaiseError => 1, AutoCommit => 1 }); print "Content-type: text/html\n\n"; print "Connected\n"; #$sth->finish; $dbh->disconnect;