#! /usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0');
$ua->show_progress( 1 );

my %headers = ( 'Accept' => '*/*',
		'Accept-Encoding' => 'identity',
		'Connection' => 'Keep-Alive',
#		'Host' => 'feed.podbean.com' );
		'Host' => 'makeoursmarvel.com' );

#my $url = 'https://feed.podbean.com/betheserpent/feed.xml';
my $url = 'http://makeoursmarvel.com/feed/podcast/';


my $response = $ua->get( $url, %headers );

if ( $response->is_success ) {
    print "Okay!\n";
} else {
    my $status = $response->status_line;
    print "failed to download $url: $status\n";
}