I get an error in message->content_charset

require LWP::UserAgent;
require HTTP::Request;
$request = HTTP::Request->new(GET => 'http://www.utm.edu/departments/finearts/calen.htm');
$ua = LWP::UserAgent->new();
$response = $ua->request($request);
$content_charset = $response->content_charset();
^D
Can't use an undefined value as an ARRAY reference at C:/Perl/site/lib/HTTP/Message.pm line 251.
Summary of my perl5 (revision 5 version 8 subversion 9)libwww version: 5.831
/Jesper Persson		 		 	   		  
_________________________________________________________________
Windows Live™: Keep your life in sync. Check it out!
http://windowslive.com/explore?ocid=TXT_TAGLM_WL_t1_allup_explore_012009