Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $d = $_;
    return ($d, $h, $m, $s);
}

sub sec_to_ddmmss {
    my $t = shift;
    return $dbh->selectrow_array("SELECT sec_to_time($t);");
}