local $/;
    open local(*IN), "< $_" or die $!;
    my $seq = <IN>;
    close IN or die $!;