use strict;
use warnings;
use Test::More 0.96 skip_all => 'Example alternative technique that doesn\'t work';
use lib "t/lib/";
use Data;
use IO::Handle;
sub getfd {
return IO::Handle->new_from_fd("Data::DATA", "r" );
}
my $x = getfd();
my $y = getfd();
local $/ = undef;
my $x_data = <$x>;
my $y_data = <$y>;
is( $x_data, $y_data, "Values are the same");