sub err {
    my( $errmsg )= @_;
    # ...
}