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ę?