Select Code to Download

$mech->credentials(   'www.edited.com:443', 'Title', $username, $passw
+ord );

sub credentials
{
...
    return @$old if wantarray;
    return join(":", @$old);
}

$mech->credentials( $username, $password );