while (<INPUT>){
 my $plaintext = $des->decrypt3 ( $_, $passcode );
 print OUTPUT "$plaintext";
}