my $file = './foo.file';
open my $OF, $file or die $!;
my $filecontent = join '', <$OF>;
close $OF or die $!;