use DBI;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $r = $ua->post('http://localhost/');

my $dbh = DBI->connect("dbi:Sybase:server=$server", '$uid', '$password') || die "Bad db server, no donuts!";
my $sql = "declare \@rc int exec \@rc = myProcName " . 
		  "select \@rc";
$row = $dbh->selectall_arrayref($sql);
print $row->[0][0], "\n";