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. Can't opendir(C:/Users/Fred/AppData/Local/Application Data): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/AppData/Local/ElevatedDiagnostics): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/AppData/Local/History): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/AppData/Local/Microsoft/Windows/INetCache/Content.IE5): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/AppData/Local/Microsoft/Windows/INetCache/Low/Content.IE5): Invalid argument at virus4.pl line 18. 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/AppData/Local/Temp/msdtadmin): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/AppData/Local/Temporary Internet Files): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/AppData/LocalLow/Oracle/Java/jre1.8.0_91/java_sp): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/Application Data): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/Cookies): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/Documents/My Music): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/Documents/My Pictures): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/Documents/My Videos): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/Local Settings): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/My Documents): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/NetHood): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/PrintHood): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/Recent): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/SendTo): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/Start Menu): Invalid argument at virus4.pl line 18. Can't opendir(C:/Users/Fred/Templates): Invalid argument at virus4.pl line 18. C:\Users\Fred>dir Volume in drive C is Windows8_OS Volume Serial Number is 3052-CD20 Directory of C:\Users\Fred 12/18/2016 10:54 PM . 12/18/2016 10:54 PM .. 11/05/2016 09:28 PM .android 07/27/2015 10:35 PM .gem 11/27/2016 04:15 PM .gimp-2.8 10/14/2016 04:38 PM 153 .gitconfig 06/08/2016 07:05 PM .LSC 06/01/2016 09:07 PM .oracle_jre_usage 05/02/2015 12:44 AM 0 .perlcriticrc 06/08/2016 07:05 PM .QtWebEngineProcess 07/01/2016 02:17 AM .ssh 04/28/2015 11:10 PM .thumbnails 12/15/2016 10:41 PM Contacts 12/16/2016 12:14 AM Desktop 12/16/2016 06:55 PM Documents 12/16/2016 06:55 PM Downloads 12/15/2016 10:41 PM Favorites 12/15/2016 10:41 PM Links 12/15/2016 10:41 PM Music 12/15/2016 03:58 PM OneDrive 06/15/2016 12:57 PM perl5 12/15/2016 10:41 PM Pictures 12/15/2016 10:41 PM Saved Games 12/15/2016 10:41 PM Searches 12/18/2016 10:58 PM 293 text1.txt 06/21/2015 06:09 PM Tracing 12/15/2016 10:41 PM Videos 12/15/2016 11:24 PM 523 virus1.pl 12/15/2016 11:29 PM 519 virus2.pl 12/16/2016 09:16 PM 484 virus3.pl 12/18/2016 10:36 PM 543 virus4.pl 7 File(s) 2,515 bytes 24 Dir(s) 42,966,175,744 bytes free C:\Users\Fred>type text1.txt C:/Users/Fred Fred: M age in days: 0.0000 C:/Users/Fred/NTUSER.DAT NTUSER.DAT: M age in days: 0.0026 C:/Users/Fred/text1.txt text1.txt: M age in days: 0.0000 C:/Users/Fred/virus4.pl virus4.pl: M age in days: 0.0122 C:/Users/Fred/Pictures/2016-12/z z: M age in days: 0.0986 C:\Users\Fred>type virus4.pl #!/usr/bin/perl use warnings; use strict; use File::Find; use Cwd; =pod =head1 DESCRIPTION returns files within a hard-coded M time =cut my $current = cwd; find( \&pm_beneath, $current, ); sub pm_beneath { use File::Basename; my $file=$File::Find::name; my $days = .1; #hard-coded my $basename = basename($file); return if $file =~ /.*AppData.*/; my $access_age = -M $basename; return if ($access_age > $days); print "$file\n"; printf "$basename: M age in days: %.4f\n\n", $access_age; } __END__ C:\Users\Fred> #### use File::Find; use Cwd; my $current = cwd; find( \&pm_beneath, $current, ); sub pm_beneath { use File::Basename; my $file = $File::Find::name; my $days = .1; #hard-coded my $basename = basename($file); return if $file =~ /.*AppData.*/; my $access_age = -M $basename; return if ( $access_age > $days ); 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 Volume in drive C is Windows8_OS Volume Serial Number is 3052-CD20 Directory of C:\Users\Fred\.android 11/05/2016 09:28 PM . 11/05/2016 09:28 PM .. 11/05/2016 09:26 PM 1,704 adbkey 11/05/2016 09:26 PM 716 adbkey.pub 01/04/2012 04:06 PM 354 adb_usb.ini 11/05/2016 09:28 PM 137 androidwin.cfg 11/05/2016 09:26 PM avd 11/05/2016 09:26 PM 114 ddms.cfg 5 File(s) 3,025 bytes 3 Dir(s) 42,990,264,320 bytes free C:\Users\Fred\.android>