sub wanted {
    if (/\.pl$/i) {
        $_ = $File::Find::name;
        save_data(stat ($_), $_);
    }
}