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

my $dbh = DBI->connect( "DBI:Sybase:server=172.20.24.157; database=PP_DB; interfaces=/opt/sybase/interfaces","sa", "password" );