$0 – Program Name
$0
=
"dollar-zero.pl: connect pending"
;
system
(
"ps -fp
$$
"
);