opendir DIR,"./poyo";
@files = readdir DIR;
foreach (@files){
　open IN,"$_" if(-T "$_");
　　　。
　　　。
}