Select Code to Download

#!/usr/bin/perl

...
my $p = $KWallet->readPassword($kwallet_handle, 'MyFolder','Some_Passw
+ord_Key', $app_name);
say "User ID  = ", dump($u);
say "Password = ", dump($p);