The other side of $0 

• You can write to it too

sub update_status {
    my($status) = @_;
    $0 = "$progname: $status";
}

UID    PID  TTY    TIME  CMD
root  1970  pts/2  00:00 /usr/bin/sleeper