my $time = scalar localtime();
    $time =~ /(\d\d:\d\d:\d\d)/;
    $time = $1;