use LWP::UserAgent;
		$ua = LWP::UserAgent->new(
#			agent                 => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.5) Gecko/2008120121 Firefox/3.0.5',
#			ssl_opts => { verify_hostname => 0, SSL_verify_mode => 0, SSL_verifycn_scheme => 'none' },
		);
		$response = $ua->head("$get_url");

		print $response->dump();

use IO::Socket::SSL 'inet4';
use LWP::UserAgent;