#!/usr/bin/perl
##
## Perforce requires messages on stdout
##
open(STDERR, ">&STDOUT") or die "Can't dup stdout";
##
## read the password from <stdin> and truncate the newline
##
my $password = <STDIN>;
$password =~ s/\n//;
##
## success
##
if($password eq "secret"){
    exit 0;
}
##
## failure
##
die "You got the password wrong!\n";