SELECT server_id
FROM   wms_rf_server
WHERE  server_name = 'splwebdev.unix.us.tld.com'

##</code><code>##

use strict;
use warnings;
use DBI qw(:sql_types);

my $dbh = DBI->connect('dbi:Oracle:db','user','pass',
    { AutoCommit => 0, RaiseError => 1, PrintError => 1 }
) or die "Unable to connect!: $!\n";

my $sql = qq{
    SELECT server_id
    FROM   wms_rf_server
    WHERE  server_name = 'splwebdev.unix.us.tld.com'
};
my $server_id;
my $sth = $dbh->prepare($sql);
$sth->execute();
my $rv = $sth->bind_columns(\$server_id);

print "Returned server_id = [$server_id]\n" if $server_id;

$sth->finish();
$dbh->disconnect();