use Path::Class qw{file};
my $data=file($filename)->slurp;