کمک زبان پرل بیو انفورماتیک

سلام کسی میتونه کمک کنه که برنامه زیر چیکار میکنه و مشکلش چیه ایا اجرا میشه یا نه؟ و چطور میشه مشکل بر طرف کرد؟
$DNA = 'ACGGGAGGACGGGAAAATTACTACGGCATTAGC;'
print "Here is the starting DNA:\n\n;"
print "$DNA\n\n;"
$revcom = reverse $DNA;
$revcom =~ s/A/T/g;
$revcom =~ s/T/A/g;
$revcom =~ s/G/C/g;
$revcom =~ s/C/G/g;
print "Here is the reverse complement DNA:\n\n;"
print "$revcom\n