opendir(BIN, $dir) or die "Can't open $dir: $!";
while( defined ($file = readdir BIN) )
        {
                next if !($file =~ /^TT\.*/);
                $mtime= (stat($file))[9];
                ($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime($mtime);
                $Month=$Month+1;
                print $Year."\n";
                $Year=$Year-100;
......