#!/usr/bin/perl -w
use strict;


if(!$ARGV[0]){ die "# usage: $0 <list species>\n" }

open(LIST,"<",$ARGV[0]) || die "# cannot read $ARGV[0]\n";
while(<LIST>){
    next if(/^#/);
    my $species = (split)[0];
    system("install-organism -v 1 -task uninstall,erase -org $species");
}
close(LIST);