use Crypt::CBC; 
use IO::Socket; 
 
system("cls");	 
 
sub encrypter 
{ 
	print "key: "; 
	$key = <STDIN>; 
	chomp($key); 
    my $cipher = Crypt::CBC->new( -key   => $key, 
                             -cipher => 'Blowfish', 
                             -header => 'randomiv', 
							 -insecure_legacy_decrypt 
                           ); 
   # undef $/;  
#	print "enter message to encrypt: "; 
#	$plaintext = <STDIN>; 
	#chomp($plaintext); 
 
	open INPUTDATA, "<inputfile.txt"; 
	$plaintext .=<INPUTDATA>; 
	 
	#testing purposes 
	### 
	print $plaintext; 
	<STDIN>; 
	### 
	 
	 
	$plaintext = $cipher->encrypt($plaintext); 
 
	 
	close (INPUTDATA); 
 
	open MYFILE, ">coded.txt"; 
	print MYFILE $plaintext; 
	close (MYFILE); 
	print "encrypted file written..shh! secret!\n"; 
	 
	  
 
	 
#decryption for testing of successful hash. If it didn't hash right, it throws an error in console 
############## 
	open MYFILE, "<coded.txt"; 
	$ciphertext .=<MYFILE>; 
     my $cipher2 = Crypt::CBC->new( -key   => $key, 
                             -cipher => 'Blowfish', 
                             -header => 'randomiv' 
							 ); 
	 
 
	 
	$ciphertext = $cipher2->decrypt($ciphertext); 
############### 
 
 
 
 
	 
 
	 
	#pushes hash out to the socket 
	$MySocket=new IO::Socket::INET->new(PeerPort=>3333,Proto=>'tcp',PeerAddr=>'127.0.0.1');  
	$MySocket->send("$plaintext\n"); 
 
} 
	 
	 
sub decrypter 
{ 
$key = $ARGV[1]; 
print "\n*\n*listening with key as $key\n"; 
 
 
my $sock = new IO::Socket::INET ( 
                                 LocalHost => '127.0.0.1', 
                                 LocalPort => '3333', 
                                 Proto => 'tcp', 
                                 Listen => 1, 
                                 Reuse => 1, 
                                ); 
die "Could not create socket: $!\n" unless $sock; 
 
 
my $new_sock = $sock->accept(); 
while(<$new_sock>)  
  { 
	$ciphertext = $_; 
	chomp($ciphertext); 
    my $cipher2 = Crypt::CBC->new( -key   => $key, 
                             -cipher => 'Blowfish', 
                             -header => 'randomiv' 
							 ); 
	 
 
	$ciphertext = $cipher2->decrypt($ciphertext); 
 
#	system("cls"); 
	print "\n$ciphertext"; 
  } 
 
 close($sock); 
 
 
 
&decrypter; 
exit();	 
} 
 
 
#main program 
 
if (($ARGV[0] =~ "-e")) 
{ 
&encrypter 
} 
if (($ARGV[0] =~ "-d")) 
{ 
&decrypter 
}

Ciphertext does not begin with a valid header for [header] header mode at (script error line)