Select Code to Download

# Pull the DB record for the service_number passed 
my $dbh = DBI->connect( "dbi:Oracle:$dbase", $user, $pass,
...
                   $svce, $siteid, $monthly_cost );
  print "$s\n";
}

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