#! /usr/bin/perl -w

use diagnostics;
use strict;
use Getopt::Std;
use Crypt::CBC;

getopt( 'kio', \%opts );

$cipher = Crypt::CBC->new(
    -key    => '$opts{"k"}',
    -cipher => 'Skipjack',
);
$INFILE  = %opts{"i"};
$OUTFILE = %opts{"o"};
open < INFILE  or die "can't open $INFILE: $!";
open > OUTFILE or die "can't open $OUTFILE: $!";
read INFILE, $plaintext;
$chipertext = $cipher->encrypt($plaintext);
print OUTFILE, $chipertext;
close OUTFILE;
close INFILE;
return (0);