package TestUtil;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(write_file read_file);

use strict;
use FileHandle;

sub write_file {
    my($file, $cont) = @_;
    my $out = FileHandle->new("> $file") or die "$file: $!";
    $out->print($cont);
}

sub read_file {
    my $file = shift;
    my $in = FileHandle->new($file) or die "$file: $!";
    local $/;
    my $cont = <$in>;
    return $cont;
}

1;