#!/usr/bin/env perl use strict; use warnings; use LWP::UserAgent; my $url = 'https://www.bbc.co.uk/radio4/programmes/schedules/fm/2015/10/13'; my $ua = LWP::UserAgent->new (); my $res = $ua->get( $url ); my $html = $res->content; print substr ($html, 0, 256) . "...\n"; #### $ perl getr4.pl BBC Radio 4 FM - Schedules, Tuesday 13 October 2015