#! perl -slw
use strict;

my $protienFile = shift;

my $size = -S protienFile;
my $chunk = int( $size / 20 );

open IN, '<', $protienFile or die;

my %procs;
for my $n ( 1 .. 20 ) {
    open O, '>', "temp$n.in" or die $!;
    print O, scalar <I> while tell( O ) < ( $n * $chunk );
    close O;
    my $pid;
    if( $pid = fork() ) {
        ++$procs{ $pid };
    }
    elsif( defined $pid ) {
        exec "java -Xmx300m java_code/ALPHAtest -a tables/A.TRAINED -e tables/E.TRAINED -c tables/conf.tat -f temp$n.in > temp$n.out";
    }
    else {
        die "Fork failed";
    }
}

while( keys %procs ) {
    my $pid = wait;
    delete $procs{ $pid };
}

open O, '>', $protienFile . '.out' or die $!;
for my $n ( 1 .. 20 ) {
    open I, '<', "temp$n.out" or die $!;
    print O, <i>;
    close I;
    unlink "temp$n.in", "temp$n.out";
}
close O;