# Pull the DB record for the service_number passed 
my $dbh = DBI->connect( "dbi:Oracle:$dbase", $user, $pass,
  { AutoCommit => 0, RaiseError => 1, PrintError => 0 })
        or die $DBI::errstr;
my $sth = $dbh->prepare(
        "select siteid, monthly_cost "
        "from comms.services "
        "where service_number = ?");
$sth->execute($svce);
while ( my ( $siteid, $monthly_cost ) = $sth->fetchrow_array ) {
  my $s = sprintf( 'Service Number (%s): site ID = %s, monthly cost = %16.2f',
                   $svce, $siteid, $monthly_cost );
  print "$s\n";
}

##</code><code>##

while ( my ( $siteid, $monthly_cost ) = $sth->fetchrow_array ) {
  $monthly_cost = sprintf '%16.2f', $monthly_cost;
  ...
}