use strict;
$::WRITE = 1 if (defined($ARGV[0]) and $ARGV[0] eq '--write');
$::WARN = 0;
sub get_test_data
{
my $fn = shift;
local($/);
undef $/;
open(GIF, $fn) or die "Cannot open $fn: $!\n";
binmode(GIF);
my $im = <GIF>;
close (GIF);
return defined($im) ? $im : "";
}
sub write_file
{
my $fn = shift;
my $im = shift;
local($/);
undef $/;
print "writing\n";
open(GIF, '>' . $fn) or die "Cannot open $fn: $!\n";
binmode(GIF);
print GIF $im;
close (GIF);
}
1;