#!/usr/bin/perl

use vars qw(@day);

$day[5] = '';
printday();
$day[5]="\n";
printday();
$day[5]=undef;
printday();

sub printday
{
  my $len = length($day[5]);
  if ($len =~ /8/) {
    print "$day[5]";
  } else {
    print "00:00:00";
  }
  print "\n";
}