package test;

use Moose;
use FileHandle;

has 'fh' => (
   is => 'rw',
   isa => 'FileHandle',
   lazy => 1,
   default => sub { FileHandle->new },
);

sub BUILD {
   my $self = shift;

   open $self->{fh} , "<", "temp.txt";
   while (<$self->{fh}>) {
      print $_;
   }
}