#!/usr/bin/perl -w

use DBI;

$dbname = "mydb";
$host="myhost";
$port="myport";
$username="user";
$password="pwd";
$dbh = DBI->connect("dbi:PgPP:dbname=$dbname;host=$host;port=$port",
      $username, $password
  ) or die $DBI::errstr;
  print "CONNECTED";
$sth = $dbh->prepare("INSERT INTO test.test_tabelle(id, name) VALUES(?, ?)");
$sth->bind_param(1, '1234') or die $sth->errstr;
$sth->bind_param(2, 'zipfeklatscher') or die $sth-errstr;
$sth->execute or die $sth->errstr;