use strict;

my $usage = "usage: generate_picked Instances Picked";

my($instancesD,$pickedD);

(
 ($instancesD = shift @ARGV) && opendir(INS,$instancesD) &&
 ($pickedD    = shift @ARGV)
)
    || die $usage;

(-d $pickedD) || mkdir($pickedD,0777) || die $usage;

my @genomes = grep { $_ !~ /^\./ } readdir(INS);
closedir(INS);

foreach my $genome (@genomes)
{
    system "pick_feature_set < '$instancesD/$genome' > '$pickedD/$genome'";
}