Help for this page
find /backup -mtime +30
#!/usr/bin/perl -w ... print join ( "\n", @files ), "\n";