Select Code to Download

    my $seconds = sprintf( "%02.3f", ( ( $sectime - ( $hours * 3600 ) 
+) - ( $minutes * 60 )) );

my ( $hours, $minutes, $seconds ) = ( split /:/, $time )[ -3, -2, -1 ]
+;