Select Code to Download

use YAML;
my @pwlist = Load(join '', <DATA>);
...
---
user: fred
passwd: fredpw

$VAR1 = [
          {
...
            'user' => 'fred'
          }
        ];