package XML::Simpler;

use strict;
use warnings;

require Exporter;

use vars qw(@ISA @EXPORT $VERSION);
@ISA = qw(Exporter);
@EXPORT = qw( XMLin XMLout );
$VERSION = '1.00';

sub XMLin {
    my $file = shift;
    my @lines();
    open(FILE,$file) or die "couldn't open $file $!";
    while(<FILE>) {
       my $line = $_;
       push @lines, \$line;
    }
    close(FILE);
    return @lines;
}
1;
__END__