#!/usr/bin/perl use strict; my $sudo = "/usr/local/bin/sudo"; $sudo .= " -C4 -u vpopmail"; my $vchkpw = "/usr/local/vpopmail/bin/vchkpw"; my $true = "/usr/bin/true"; open(CPW,"|$sudo $vchkpw $true 3<&0"); printf(CPW "%s\0%s\0Y123456\0",'user@example.com','pa55word'); close(CPW); my $status = $?; print "FAIL\n" and exit if ( $status != 0 ); print "OK\n";