use DBI; 
 use DBD::Oracle;

 open(BLOB, "/utl_dump/test.csv");
 $bytes = 0;
 $bytes = read(BLOB, $buff, 500000);
 close(BLOB);


 my $insert_into_cache = 

 q{
   begin 
   insert into report_cache_master (:cache_id, :blob);
   end;
  };

 my $insert_stmt = $dbh->prepare($insert_into_cache);

 $attrib{'ora_type'} = $LONG_RAW_TYPE;
 $insert_stmt->bind_param(":cache_id", 7777);
 $insert_stmt->bind_param(":blob", $muff, \%attrib);

 $insert_stmt->execute;