Select Code to Download

sub wanted {
    if (/\.pl$/i) {
...
        save_data(stat ($_), $_);
    }
}

$sth -> bind_param ($_, @_[$_], SQL_INTEGER) foreach (1..13);
$sth -> bind_param (14, @_[14]);