Select Code to Download

Example A, rewritten:

...
print "First title: '$data->[0]{title}'\n";

$template->param( selscene => $data );

eval {
    my $sth = $dbh->prepare_cached( ... );
...
}; if ($@) {
    # Do some error handling here.
}