my $auth  = Net::OAuth2::Profile::Password->new(
          site                  => 'https://login.live.com/'
        , site_path             => '/accesstoken.srf'
        , client_id             => uri_escape('ms-app://xxxxx')
        , client_secret         => uri_escape('yyyyyyyy')
        , grant_type            => 'client_credentials'
        , scope                 => 'notify.windows.com'
  );
  my $token = $auth->get_access_token();