"added" companion script as comments in perl script

perl/df-highlight.pl

@@ -1,5 +1,19 @@
 #!/usr/bin/perl
 
+# Companion script:
+
+# #!/bin/bash
+# cd
+#while true; do
+#  tput civis;
+#  clear; tput smul;
+#  printf "%+50s" "(every 5 mins)";
+#  tput cub 99; date; tput sgr0; echo;
+#  perl df-highlight.pl -c 3 -p;
+#  echo; uptime | cut -d, -f4- | awk '{$1=$1};1' # https://unix.stackexchange.com/a/205854
+#  tput cnorm; sleep 300;
+#done
+
 use warnings;
 use strict;
 use Term::ANSIColor;