Select Code to Download

#!/usr/bin/perl
use strict;
...
# $term is a blessed array reference
print $term, ' ', $term->OUT, "\n";
# output is: Term::ReadLine::Stub=ARRAY(0x9d73a7c) GLOB(0x9da48a8)