Potential leak of data: Simple Password

Detected 1 occurrence(s) of ‘\s*pass[word]+\s*[:=]\s*["'][a-z0-9\-_\!\$]+["']‘: my $login_url = 'login url here'; my $username = 'username'; my $password = 'password'; my $mech = new WWW::Mechanize; $mech->get($login_url) or die "Failed to fetch login page"; $mech->set_visible($username, $password) or die "Failed to find fields to complete"; $mech->submit or die "Failed to submit form"; if ($mech->content( Source: http://pastebin.com/raw.php?i=uPmNCxj1