Select Code to Download

  my $auth  = Net::OAuth2::Profile::Password->new(
          site                  => 'https://login.live.com/'
...
        , scope                 => 'notify.windows.com'
  );
  my $token = $auth->get_access_token();

use DBI;
use URI::Escape;
...
        return $WNS_ERR;
}
;