syntax error at motif_finder.pl line 18, near ")
{"
Execution of motif_finder.pl aborted due to compilation errors.
##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

my $motif;
my $fastaseq;
my $filename;
my $line;
print "Please enter the name of the file containing the DNA sequence data: ";

$filename = <STDIN>;

chomp $filename;

open (DNAFILE, $filename) || die "Cannot open file\n" 

while (<DNAFILE>)
{
    if ($line =~ m/^>/)
    {
    next;
    }
    else
    {
    $fastaseq .= $line;
    }
}
close DNAFILE;
$fastaseq =~ s/\s//g;

print "Enter a motif to search for; ";

$motif = <STDIN>;

chomp $motif;

if ($fastaseq =~ /$motif/)
{
    print "Motif found\n\n";
}
else
{
    print "Motif was not found\n\n";
}
}