package ReadFile;

use Symbol;

sub new {
	my $class = shift;
	$class = ref($class) || $class;
	my $file = shift;
	my $self = gensym;
	open ($self, $file) || die;
	bless($self, $class);
	return $self;
}

sub read_record {
	my $self = shift;
	local $/ = shift || $/;
	my $line = <$self>;
	return  $line;
}