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