Select Code to Download

#!/usr/bin/env perl
use strict;
...
for my $dest (qw/Greece Italy Spain/) {
    $tmpl->process (\$from_db, { country => $dest });
}