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