Select Code to Download

# V5: Inline::C
#!/opt/local/bin/perl
...
    ( $ref, $matches, $query ) = $read->padded_alignment;
    print $read->qname, "\n", dnacmp2('$ref', '$query');
}

Global symbol "$query" requires explicit package name at mutations.pl 
+line 133.
...
Global symbol "$matches" requires explicit package name at mutations.p
+l line 133.
Global symbol "$query" requires explicit package name at mutations.pl 
+line 133.
Execution of mutations.pl aborted due to compilation errors.