#!/usr/bin/perl -w

use strict;
use Crypt::CBC;
use Data::Dumper;

local*FH;
open(FH, 'hello.pl');
my $plaintext;

while (<FH>) {
    $plaintext .= $_;
}
close FH;

my $cipher = new Crypt::CBC('hey jude!');
my $ciphertext = $cipher->encrypt_hex($plaintext);

for (my$i=0;$i<length($ciphertext);$i++) {
    print "\n" if ($i%30 == 0);
    print substr($ciphertext, $i,1);
}