Select Code to Download

use strict;
use Win32::AdminMisc;
...
    Win32::AdminMisc::GetFileInfo($_, \%attr);
    print join(' ',keys %attr), "\n\n";
}