Help for this page
#!/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);"); }