sub safe_print {
    local $_;
    print map { defined $_ ? $_ : '[UNDEF]' } @_;
}