$ua = LWP::UserAgent->new; 
# [..] cookies setting skipped
$request = HTTP::Request->new("HEAD");
$request->url("http://www.emusic.com/whatever.mp3"); 
    # replace with real MP3 file
$response = $ua->request($request);
print "dooh" if !defined($response->headers->content_length);