1# perl 2 3use V; 4 5dprofpp( '-T' ); 6$expected = 7qq{main::foo1 8 main::bar 9 main::yeppers 10main::foo2 11 main::bar 12 main::yeppers 13}; 14report 17, sub { $expected eq $results }; 15 16