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