use strict;
use Test::More tests => 1;
my $result = join '', `perl -It -Iblib/lib -d:Trace t/foo.pl 2>&1`;
my $expected = join '',<DATA>;
is($result,$expected);
__DATA__
* expected output here *