my $start=time();

use Crypt::CBC;
use strict vars;
use strict;
use warnings;

my $key="abcdefgghjkloiuy";

my $cipher = Crypt::CBC->new(-key    =>  $key,
			     -cipher => 'Rijndael',
			     -salt   => 1,
			    ) || die "Couldn't create CBC object";
				
open(F,"Robo.mp4");

$cipher->start('encrypting');
  while (read(F,my $buffer,1024)) 
 {
    $cipher->crypt($buffer);
 }
 
 $cipher->finish;
my $end=time();

print "\n".$end-$start;