sub ScanDir
{
    local( DIR, FILE );
...