Select Code to Download

#!/usr/bin/perl
use strict;
...
require "incl/html.pl";

my $update_time = $dbh->selectrow_array("SELECT NOW()");