Select Code to Download

#! /usr/local/bin/perl -w
    eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
...
 # this is probably not what you want to do:
 print("$File::Find::name\n");
}

$ find2perl . -name "*.shtml" -mtime -30