open my $LOG, ">", "/var/log/my_app.log";
tie $LOG, "Text::Hidden::Handle", force => "hidden";

my $ccn = Text::Hidden->new( "1234567887654321", default => "unhidden" );

print $LOG $ccn;              # OK
print $LOG "Got CCN: $ccn";   # Oops! - premature stringification