#bzip2_momo.pl bzip2$B$G05=L(B

opendir(DIR,"../../h_momo2")||die". can't open1 :$!\n";

@file=readdir(DIR);

close(DIR);

foreach $name1(@file){
    if(!-d $name1){
	system("bzip2 -k ../../h_momo2/$name1");
    }
}
system("mv ../../h_momo2/*.bz2 ../../bzip2_momo");
