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

my $dbh = DBI->connect("dbi:Sybase:server=sql01", 'piet', 'pompies', {PrintError => 0});

die "Unable for connect to server $DBI::errstr"
    unless $dbh;