$example =~ s/\.pl$//;
my $ok = join '', IO::File->new("$example.out", '<')->getlines;
is $out, $ok, substr $example, length 't/examples/'
$example =~ s/\.pl$//;
my $ok = join '', IO::File->new("$example.out", '<')->getlines;
is $out, $ok, substr $example, length 't/examples/'