The other side of $0 

• You can write to it too

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