open my $outfile, '>', 'Motif_Result.txt' or die "Cannot open 'Motif_Result.txt' $!";

...

open FIH, '<', $patternseq or die "Cannot open '$patternseq' $!";