Select Code to Download

use Crypt::CBC; 
    my $cipher = Crypt::CBC->new( -key => 'fjeislqp12345678',
...
    }
    print LATEST $cipher->finish();
    close(LATEST);

#!C:\strawberry\perl\bin\perl
#
...
    $cipher->finish();
    close(INFILE);
    close(OUTFILE);