#!/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";