get_snds_data

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use LWP::UserAgent;

my @urls = qw[
  https://postmaster.live.com/snds/data.aspx
  https://postmaster.live.com/snds/ipStatus.aspx
];
my $key = shift || $ENV{SNDS_KEY};

die "No SNDS key given\n" unless defined $key;

my $ua = LWP::UserAgent->new;

foreach (@urls) {
  get_url($ua, $_, $key);
}

sub get_url {
  my ($ua, $url, $key) = @_;

  my $resp = $ua->get("$url?key=$key");
  my $data = $resp->content;
  unless (length $data) {
    warn "No data for $url\n";
    return;
  }

  my $file = $resp->filename;
  open my $out_fh, '>', $file or die "$file: $!";
  print $out_fh $data;
}