sub hms
{
        my ($hours) = @_;
        my $minutes = ($hours - int($hours)) * 60;
        my $seconds = ($minutes - int($minutes)) * 60;

        return(int($hours), int($minutes), int($seconds));
}