Taki skrypt:

#!/usr/bin/perl -w
use Crypt::CBC;

my $scriptkey = qx(cat /tmp/.scriptkey);
chomp $scriptkey;

print new Crypt::CBC(-key=>"$scriptkey",-salt=>"12345678")->encrypt(qx(cat $ARGV[0]));

Dlaczego nie szyfruje (a w przypadku decrypt, nie deszyfruje) całości pliku, a tylko pierwszą linię?