1# perl
2
3use V;
4
5dprofpp( '-T' );
6$expected =
7qq{main::BEGIN
8main::foo
9};
10report 19, sub { $expected eq $results };
11