my $file = ReadFile->new("obself.pl"); print $file->read_record("package"); print $file->read_record();