#!/opt/bin/perl -w # Creates a table called appointment. # The appointment table has time of the # appointment and the chores as fields. # This program only requires to run once use strict; use DBI; $ENV{"ORACLE_HOME"} = '/opt/oracle/9.0.1'; my $dbh = DBI->connect("dbi:Oracle:TRCH", "usrname", "passwrd") or die "Connecting: $DBI::errstr"; my $sth = $dbh->prepare(qq' CREATE TABLE appointment (appTime CHAR(255), chore CHAR(255))') or die "Cannot prepare: " . $dbh->errstr( ); $sth->execute( ) or die "Cannot execute: " . $sth->errstr( ); $sth->finish( ); $dbh->disconnect( );