Select Code to Download

use strict;use warnings;$|=1;
(@ARGV eq 4) ? ( ($",$~,$:,$.) = @ARGV,$^=$_='0000') : ($"=$_=$^=$.=$:
+='0000',$~='0001');
...
  print "\r", $",'.',$~,':',$:,'.',$.,':',$^,'.',$_;
  redo
}

@_=localtime;
$~=$_[2]%12%10;$"=$_[2]%10>9;
$.=$_[1]%10;$:=$_[1]-$.;$:/=10;
$_=$_[0]%10;$^=$_[0]-$_;$^/=10;
foreach $,($~,$",$.,$:,$_,$^){$, = sprintf"%04b",$,;}