#!/usr/bin/perl
use
strict;
use
warnings;
use
File::Spec;
use
IO::File;
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'
);
STDOUT
do
{
local
$/; <
$fh
>};
close
$fh
;