#!/usr/local/bin/perl
use DBI;

my $dsn = "DBI:ODBC:HelpDesk";
my $proxy = "hostname=123.45.678.9;port=2222";
my $compression = "compression=gzip";
$dbh = DBI->connect("dbi:Proxy:$proxy;$compression;dsn=$dsn")
       or die "\ndbiproxy Connect Failed:\n" .
              "   proxy:$proxy;\n   dsn=$dsn\n   $compression\n\n";