Hi,

I am trying to print the values in perl while working with oracle

my code is

----------------------------------------------------------------------------------------------
$sth = $dbh->prepare(q{

        DECLARE

        user_id VARCHAR2(50);
        input_booking_seq VARCHAR2(50);
        fax_header VARCHAR2(50);
        file_no VARCHAR2(50);

        BEGIN

        select user_id,passkey, '//FAX(fax=' || passkey1, passkey2
          into user_id,input_booking_seq,fax_header,file_no
          from edit_table
         where edit_table.tag = 'BOOKING'
           and edit_table.key = 'PRINT' and passkey = '1533805';

        dbms_output.put_line('The values are '||input_booking_seq);
        END;
        }) or die $dbh->errstr;

$dbh->func( 1000000, 'dbms_output_enable' );
$dbh->func( $values, 'dbms_output_put' );
$values = $dbh->func('dbms_output_get' );
$sth->execute;


print "$values \n";