Select Code to Download

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

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

sub hide {
    my( $new )= 1<@_ ? pop : undef;
    my $secret;
...
    }
    return $secret;
}