{
    open(FILE, "$filename") or die "Cant open $filename\n";
    local $/ = undef;
    $lines = <FILE>;
    close(FILE);
}