C:\Users\Fred>type virus6.pl
#!/usr/bin/perl
use warnings;
use strict;

use File::Find;
use Cwd;

my $current = cwd;

find( \&pm_beneath, $current, );

sub pm_beneath {
  use File::Basename;
  use 5.01;

  my $file     = $File::Find::name;
  my $ref_to_file = \$file;
  my $days     = .1;                  #hard-coded
  my $basename = basename($file);
  return if $file =~ /.*AppData.*/;
   use Fcntl ':mode';
        use Win32::LongPath qw(:funcs :fileattr);

        # get object
        testL ('e', $file)
          or die "$file doesn't exist!";
        $stat = statL ($file)
          or die ("unable to get stat for $file ($^E)");

        # this test for directory
        $stat->{mode} & S_IFDIR ? print "Directory\n" : print "File\n";
        # is the same as this one
        $stat->{attribs} & FILE_ATTRIBUTE_DIRECTORY ? print "Directory\n" : print "File\n";

        # show file times as local time
        printf "Created: %s\nAccessed: %s\nModified: %s\n",
          scalar localtime $stat->{ctime},
          scalar localtime $stat->{atime},
          scalar localtime $stat->{mtime};

  my $access_age = -M $basename;
  return if ( $access_age > $days );
  print "$file\n";
  printf "$basename: M age in days: %.4f\n\n", $access_age;
  say "ref to file is $ref_to_file";
}

__END__


C:\Users\Fred>perl virus6.pl
Can't locate Win32/LongPath.pm in @INC (you may need to install the Win32::LongPath module) (@INC contains: C:\Users\Fred\Documents\perl5\lib\perl5/5.24.0/MSWin32-x64-multi-thread C:\Users\Fred\Documents\perl5\lib\perl5/5.24.0 C:\Users\Fred\Documents\perl5\lib\perl5/MSWin32-x64-multi-thread C:\Users\Fred\Documents\perl5\lib\perl5 C:\Users\Fred\perl5\lib\perl5/5.24.0/MSWin32-x64-multi-thread C:\Users\Fred\perl5\lib\perl5/5.24.0 C:\Users\Fred\perl5\lib\perl5/MSWin32-x64-multi-thread C:\Users\Fred\perl5\lib\perl5 C:/Strawberry/perl/site/lib C:/Strawberry/perl/vendor/lib C:/Strawberry/perl/lib .) at virus6.pl line 22.
BEGIN failed--compilation aborted at virus6.pl line 22.

C:\Users\Fred>