tie %diir, IO::Dir, "/GCN v 1.0/gcnnuevo";
foreach $item (keys %diir)
{
 print "-->".$item."=".$diir{$item}->size."bits";
}