#!/usr/bin/perl
use Time::HiRes qw(sleep);
use DBI;

# Connect to the db
my $dbh = DBI->connect(
    "dbi:Sybase:server=Server name; port=5000; database=PP_DB; interfaces=/opt/sybase/interfaces",
    "sa",
    "password" )
  or die "Usage ctp name, sa user password, 1st Sub_id, Subscriber Range";