-use vars qw($VERSION $BRANCH $maxmonths);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
+our $readback = $main::is_win ? 0 : 1;
+if ($readback) {
+ $readback = `which tac`;
+}
+chomp $readback;
+#undef $readback; # yet another reason not to use the cloud!
+