Select Code to Download

foreach $line (<FILE>)
{    
...
        chomp($line); #remove empty newlines in input file
    }
}

while($timestamp <= $numevents)
...
    $timestamp++;
}

$pid = 0; #process index
@p_s = (); #2d process array/stack
...
%schedule = (); #hash of each event with timestamp
@totalorder = (); #final order of each event

###################
...
    print "\n\n";
}