Select Code to Download

$dbh->SELECT(':$name, :$email, :$duration(from - to) FROM table WHERE 
+duration > $min_duration' {
    say "$name <$email> has spent $duration days here";
}

$dbh->prepare('SELECT name, email, from - to AS duration FROM table WH
+ERE duration > ?');
$dbh->bind_columns(\my ($name, $email, $duration);
...
while ($sth->fetch) {
    say "$name <$email> has spent $duration days here";
}