I am encrypting data in Perl and decrypt it like in this function
#!/usr/bin/perl use strict; use Crypt::CBC; my $k = \'abcd-12345\'; my $action = \'decrypt