Select Code to Download

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

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