Select Code to Download

# Display RexExp results
print STDERR join("\t",@arguments),"\n";
...

# dump fetched query results        
    $sth->dump_results if $sth->{NUM_OF_FIELDS};

0    SM_Th2_1_K27ac    SM    Th2    1    K27ac    Tbx21-1    4.8878613
+2768108e-10
0 rows
...
'120', 'SM_Th2_2_K9me3', 'SM', 'Th2', '2', 'K9me3', 'Tbx21-21', '4.189
+93008961981e-10'
1 rows