###########################################################
#!/usr/bin/perl -w

use DBI;

my ($st) = 0;
if ( &db_connect() ) { 
	exit (1); 
}
print "Please insert some text:  ";
$sometext = <STDIN>;
chomp ($sometext);
$sql = qq { insert into my_table (update_1) values ('$sometext') };
$sth = $dbh->prepare($sql);
$sth->execute();
if ( $DBI::err ) {
	if ( $DBI::err == 1062) {
		print "\nDatabase server error: $DBI::err \n";
		print "Record already exists in database. \n";
		$st++;
	}
	else {
		print "Database server error: $DBI::err \n";
		$st++;
	}
}
$dbh->disconnect();

sub db_connect {
    my $user = "user";
    my $pass = 'password';
	my ($st) = 0;
    $dbh = DBI->connect("dbi:mysql:host=my.work.domain", $user, $pass) or die "Database Connection not made: $DBI::errstr \n";
	if ( ! $dbh ) { 
		print "Error opening database: \n $DBI::err \n $DBI::errstr \n"; $st++;
	}
	$dbh->do("use mydb");
	return ($st);
}
############################################################