#!/usr/bin/perl
while                                   (1)                           
+             {
($s,$m,$h)=localtime(); if(length($h)==1){$h="0".$h} $q=$h;$r=$h;$h1=s
+ubstr($h,0,1); 
$h2=substr($h,1,1);if (length($m) == 1){$m="0".$m} $w=$m; $t=$m; $m1=s
+ubstr($m,0,1);
$m2=substr($m,1,1); if (length($s) == 1) {$s="0".$s} $e=$s;$y=$s;$s1=s
+ubstr($s,0,1); 
$s2=substr($s,1,1);while ($h1>0) { if ($h1 %2 == 0) { $str1.=0; } else
+ { $str1.=1; } 
$h1=int($h1/2);} $str1.="0" while length($str1)<4;$str1=reverse($str1)
+;while ($m1>0) 
{ if ($m1%2 == 0) { $str2 .= 0; } else { $str2.=1; } $m1 = int($m1/2);
+ } $str2.= "0" 
while length($str2) < 4;  $str2 = reverse($str2); while ($s1>0) { if (
+$s1  % 2 == 0)
{$str3.=0;} else {$str3.=1;} $s1=int($s1/2); } $str3 .= "0" while leng
+th($str3) < 4; 
$str3=reverse($str3);while ($h2>0) { if ($h2 %2 == 0){$str4.=0; } else
+ {$str4.= 1; }
 $h2 = int($h2/2);  } $str4 .= "0" while length($str4) < 4;  $str4 = r
+everse($str4); 
while ($m2>0) { if ($m2 % 2 == 0){ $str5 .= 0; } else { $str5.=1; }$m2
+=int($m2/2); }
 $str5 .= "0" while length($str5) < 4;  $str5  = reverse($str5);  whil
+e ($s2>0) { if 
($s2%2 == 0){ $str6 .= 0;} else {$str6 .= 1; } $s2= int($s2/2); } $str
+6 .= "0" while
length($str6) < 4;$str6=reverse($str6);while($q>0){ if ($q % 2 == 0) {
+ $str7 .= 0; }
else { $str7 .= 1; } $q = int($q/2); } $str7 .= "0" while length($str7
+) < 6; $str7 = 
reverse($str7); while ($w>0){ if ($w % 2 == 0){ $str8 .= 0; } else{ $s
+tr8 .= 1; }$w=
int($w/2);} $str8.="0" while length($str8) < 6; $str8=reverse($str8); 
+while ($e>0) {
if ($e % 2 == 0) { $str9 .= 0; } else { $str9 .= 1; } $e = int($e/2); 
+} $str9 .= "0"
while length($str9) < 6; $str9 = reverse($str9); @x1 = split//,$str1; 
+@x2 = split//,
$str4;  @x3 = split// ,$str2;  @x4 = split//,  $str5;   @x5 = split//,
+ $str3;  @x6 =
split//, $str6;  @x7 = split//, $str7;  @x8 = split//, $str8;  @x9 = s
+plit// ,$str9;
print  "\n\n\n   $x2[0]   $x4[0]   $x6[0] \n   $x2[1] $x3[1] $x4[1] $x
+5[1] $x6[1]" ;
print "\n $x1[2] $x2[2] $x3[2] $x4[2] $x5[2] $x6[2] \n $x1[3] $x2[3] $
+x3[3] $x4[3]";
print " $x5[3] $x6[3] \n\n\n\n\n @x7\n @x8\n @x9\n\n\n\n\n $r:$t:$y\n\
+n\n"; sleep 1;
( $str1,  $str2,  $str3,  $str4,  $str5,  $str6,  $str7,  $str8,  $str
+9 )  =  "";  }
[download]