oop.pl

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;
use IO::File;
use autodie;

package Entry;

sub new {
    my ($filename) = @_;
    my $fh = IO::File->new($filename, 'r');

    my $self = {
	"title" => <$fh>,
        "date"  => <$fh>,
	"tag"   => <$fh>,
	"text"  => join('', <$fh>),
    };
    bless $self, 'Entry';
    return $self;
}

package main;

my @filenames = glob './input/*';
for $file (@filenames) { $file = new Entry; }