#!/usr/local/bin/perl
use DBI;
$first='First';
$last='Last';
print "Inserting Data";
$dbh=DBI->connect('dbi:Oracle:SURVEY','userid','password') || die "Database ca
nnot be connected";
$status=$dbh->do(qq{Insert into t_friend (first_name,last_name) values('$first',
'$last')});
if($status!=0)
{
print "Inserted..";
}
else
{
print "cannot Insert";
}
$dbh->disconnect;