Select Code to Download

C:\Users\Fred>perl virus4.pl >>text1.txt
Use of uninitialized value $access_age in numeric gt (>) at virus4.pl 
+line 29.
Use of uninitialized value $access_age in printf at virus4.pl line 31.
...


C:\Users\Fred>

use File::Find;
use Cwd;
my $current = cwd;
...
  print "$file\n";
  printf "$basename: M age in days: %.4f\n\n", $access_age;
}

Can't opendir(C:/Users/Fred/AppData/Local/Microsoft/Windows/Temporary 
+Internet Files): Invalid argument
 at virus4.pl line 18.

Can't opendir(C:/Users/Fred/Documents/My Pictures): Invalid argument
 at virus4.pl line 18.

C:/Users/Fred/Pictures/2016-12/z
z: M age in days: 0.0986

C:\Users\Fred>cd .android

C:\Users\Fred\.android>dir
...
               3 Dir(s)  42,990,264,320 bytes free

C:\Users\Fred\.android>