Command line program to check recorded post via the UK Post Office

po-trace

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use LWP::Simple;

my $url = 'http://www.postoffice.co.uk/track-trace?trackNumber=XX' .
          '&page_type=rml-tracking-details';

my $track = shift || die "Need a tracking number\n";

$url =~ s/XX/$track/;

my $page = get $url;

die "No reply\n" unless $page;

my ($status) = $page =~ m|<h2>Results</h2><p>(.*?)</p>|;
$status =~ s/\s\s+/ /g;
say $status;