1N/A# perl
1N/A
1N/Ause V;
1N/A
1N/Adprofpp( '-T' );
1N/A$expected =
1N/Aqq{main::BEGIN
1N/Amain::foo
1N/A};
1N/Areport 19, sub { $expected eq $results };