use  DBI;
use DBD::ODBC; 
my $username = shift;
my $password = shift;
my $oracle_db = shift;

# --- Get data from DB
$dbh = DBI->connect("DBI:ODBC:$oracle_db","$username","$password") or 
    die  ("Could not make connection to database:\n".
         "$DBI::errstr\n"); 
  
$dbh->{RaiseError} = 1;

my $sql_statement = 'SELECT A.LABEL, A.COMMENTS 
                     FROM mydb.table WHERE A.LABEL = ?';
$parm_cursor = $dbh->prepare ( $sql_statement );
$parm_cursor->execute('MYLABEL');  
(my $label, my $comment) = $parm_cursor->fetchrow_array();

# --- Verify output from DB
print "$comment\n";
my @nums = map ord, split //, $comment;
print join ' ', @nums,"\n";

# --- Verify that console can print a degree sign
my $str = "30 degrees = 30".chr(186);
@nums = map ord, split //, $str;
print "$str\n";
print join ' ', @nums,"\n";