use strict;
use DBI;
use Data::Dumper;

my $driver = "mysql";
my $dns = "database=baxy";
my $username = "baxy";
my $password  = "";

my $dbh = DBI -> connect ("dbi:$driver:$dns", $username, $password, {AutoCommit => 1});
my $s = 'perl';
drop($s);

my $sth = $dbh->prepare ("create table perl(id INTEGER NOT NULL,
                                       name VARCHAR (255),
                                       title VARCHAR (255),
                                       ph VARCHAR (255)
                                     )") || die "$DBI::errstr";
                                     



$sth -> execute()|| die "$DBI::errstr";



sub drop{
my $r = $_[0];
my $sti = $dbh->prepare("drop table ?");
$sti -> execute($r) || die"$DBI::errstr";
}