From 697e4786887bc97f22b15b90b83af2d1ded65e8e Mon Sep 17 00:00:00 2001
From: michael <michael@dismyserver.net>
Date: Mon, 31 Jul 2023 10:35:41 -0400
Subject: [PATCH] "added" companion script as comments in perl script

---
 perl/df-highlight.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/perl/df-highlight.pl b/perl/df-highlight.pl
index 8145901..12f7157 100644
--- a/perl/df-highlight.pl
+++ b/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;