Potential leak of data: Simple Password

Detected 1 occurrence(s) of ‘\s*pass[word]+\s*[:=]\s*[“‘][a-z0-9\-_\!\$]+[“‘]': #!/usr/bin/perl -w use strict; use Frontier::Client; my $SATELLITE_URL = 'https://rhs0.example.com/rpc/api'; my $SATELLITE_LOGIN = 'admin'; my $SATELLITE_PASSWORD = 'redhat'; my $client = new Frontier::Client(url => $SATELLITE_URL); my $auth = $client->call('auth.login', $SATELLITE_LOGIN, $SATELLITE_PASSWORD); my $orgs = $client->call('org.listOrgs', $auth); foreach my $orgs (@$orgs) { print $orgs->{'name'}, $orgs->{'id Source: http://pastebin.com/raw.php?i=4prKuu6c