Help for this page
while ( !$username || !$password )
until ( $username and $password )
#!/usr/bin/perl ... $req = GET 'https://control.akamai.com/home/view/main'; print $ua->request($req)->as_string;