my $tput_version; eval { $tput_version = `tput -V 2>/dev/null`; }; if ( defined $tput_version && length $tput_version ) { say "tput"; } else { say "ANSI"; }