- my $ok = read_file "$example.out";
- eval scalar read_file "$example.pl";
- is $out, $ok, scalar fileparse $example
+ my $ok = join '', IO::File->new("$example.out", '<')->getlines;
+ do "$example.pl";
+ is $out, $ok, substr $example, length 't/examples/'