#!/usr/bin/env perl use warnings; use strict; END { $?=254 if defined $ENV{SSH_CONNECTION} and $? eq 255 } print $c;