#!/usr/bin/perl
use strict;
my (undef, undef, $thisbin) = File::Spec->splitpath( $0 );
my $filename = File::Spec->catfile($ENV{FAKE_DATA}, "${thisbin}.out");
die qq{Test data $filename not found} unless -e $filename;
my $fh = IO::File->new( $filename, 'r');
print STDOUT do { local $/; <$fh>};
close $fh;