Perl script help (using find.pm & wanted function)

Hello Experts,

I need your help. One of my customer has a requirement given as follows:

"Wed like to develop a script or two that can be used on our Network Appliance file servers that will traverse the file system and report of all files that havent been accessed and/or changed in a period of time (for example 1 year, 2 years, etc.) and then output the name, size of each file and the total size (in GB) of all files found.

Clearly the basis would be running the find command with the appropriate atime & ctime options.  Would you have time to develop such a script that would:

Allow the user to specify the amount of time as a command line option.
Output a full report listing each file name and file size found.
Optionally output a summary report that displays the total size of all files found.

Keep in mind that when run against a NetApp qtree/filesystem the .snapshot directory should be excluded otherwise the totals will distorted "

I'm just half-a-way through in developing this script, for remaining i need your help. I have attached the code in the snippet. Please look into it and suggest me how to complete it. Basically i would like to know, how to use &wanted subroutine to traverse through a directory and list out files which are accessed before a particular period of time (say 365 days).

Thanks,
Ashok

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

#!/usr/bin/perl
 
use File::Find ();
use vars qw/*name *dir *prune/;
 
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;
 
print "Enter the filesystem path (like /etc /opt /var) : ";
$arr = <STDIN>;
chomp($arr);
 
@inpts = split( ' ',$arr);
 
print "Enter the access time period in days : ";
$atim = <STDIN>;
chomp($atim);
 
foreach $i(@inpts)
{
File::Find::find({wanted => \&wanted}, $i);
exit;
 
sub wanted {
        if (-f || -d)
        {
        print ("$name\n");
        }
      }
}