#!/usr/bin/perl -w
use strict;

my $password= "Not really";
hide( $password, "none of your business" );
print "password=($password), hide=(",hide($password),")\n";

$password= "No!";
print "password=($password), hide=(",hide($password),")\n";

# Prints:
#password=(Not really), hide=(none of your business)
#password=(No!), hide=(none of your business)