Select Code to Download

#!/usr/bin/perl
use Crypt::Blowfish;
...
chomp(my $plaintext = $ARGV[0]);
my $ciphertext = $cipher->encrypt(pack("H16","sameer"));
print unpack("H16",$ciphertext),"\n";

#!/usr/bin/perl
use Crypt::Blowfish;
...
chomp(my $ciphertext =$ARGV[0]);
my $plaintext = $cipher->decrypt(pack("H16",$ciphertext));
print "$plaintext","--\n";