local *FILE;
open FILE, $filename or die "Can't open file: $!";
my $data = <FILE>;
close FILE;