The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;

package OSS::Fileops;

sub new
{
	my($class) = shift;
	my($self) = {};
	bless($self,$class);
	return($self);
};

sub read_file
{
	my($self) = shift;
	my($filename) = shift;
	open(FILE, $filename) or die($!);
	my(@file) = <FILE>;
	close(FILE);
	return(@file);
};

1;