my $contents = IO::File->new($filename)->getcontents();