Check vpnc pid file and print online or offline indicator

vpn_status.pl

#!/usr/bin/perl
#
# VPN pid checker to report online or offline in emoji
#
# Used in tmux prompt so...
#   a. No warnings desired
no warnings;
#   b. Need to output utf8 for terminal
binmode(STDOUT, ":utf8");

# Location of vpnc's pid file when openconnect script started as background daemon
$vpn_pid = '/var/run/vpnc/vpnc.pid';
$result = "\x{02705}";

if (!-f $vpn_pid) {
  $result = "\x{026D4}";
}

print STDOUT $result;