use Test::Base tests => 3;
my $out = "Stuff\n";
my $err = '';
tie_output(*STDOUT, $out);
tie_output(*STDERR, $err);
warn "Keep out!\n";
print "The eagle has landed\n";
is $out, "Stuff\nThe eagle has landed\n";
print "This bird had flown\n";
is $out, "Stuff\nThe eagle has landed\nThis bird had flown\n";
print STDERR "You 'lil rascal...\n";
is $err, "Keep out!\nYou 'lil rascal...\n";