<![CDATA[
#!perl -w
use strict;
# this program is meant to compile only
# perl -c cleave.pl
use threads;
use threads::shared;
print "Starting endonuclease program\n";
# I can dream, can't I?
my @methylated_dna_targets = ();
my @threads;
foreach my $enzyme (@methylated_dna_targets) {
my $t = threads->new(\&cleave, $enzyme);
push(@threads,$t);
}
foreach (@threads) {
my $num = $_->join;
print "done with $num\n";
}
print "End of endonuclease program\n";
exit(0);
# ... Object method for RE (RestrictionEnzymes)
sub cleave {
my $self = shift;
my $enzyme = shift;
my @cuts = $self->re->cleave($enzyme) ;
print join('<->', @cuts);
}
]]>