# in main
use strict;
use reader;
$/= "\n\n\n";
while(<>){
    my ($filename)=/^(\S+)/;
    my $text=reader::firstline($filename);
}

###
# in file "reader.pm"
package reader;
sub firstline{
    open(my $fh,"<", $_[0]);
    return <$fh>;
}
1;