diff -rc get_iplayer/get_iplayer get_iplayer.new/get_iplayer
*** get_iplayer/get_iplayer	2012-01-14 16:07:02.619702126 -0500
--- get_iplayer.new/get_iplayer	2012-01-14 16:11:57.764286956 -0500
***************
*** 1902,1907 ****
--- 1902,1908 ----
  	my $ua = LWP::UserAgent->new;
  	$ua->timeout( $lwp_request_timeout );
  	$ua->proxy( ['http'] => $opt->{proxy} ) if $opt->{proxy} && $opt->{proxy} !~ /^prepend:/;
+ 	$ua->default_header( 'Referer' => $1) if ($opt->{proxy} && $opt->{proxy} =~ /^prepend:(.*)\//);
  	$ua->agent( $agent );
  	# Using this slows down stco parsing!!
  	#$ua->default_header( 'Accept-Encoding', 'gzip,deflate' );