[ic] problem with using SSLeay in globalsub

[sung]

I wrote this globalsub routine to get a webapge from another website.
This program does not work from line 7.  It does not get the page.

Can someone see what i am doing wrong?
Net::SSLeay is installed fine.
Thanks in advance,
Steve


1  GlobalSub <<EOS
2  
3  sub getpage{
4
5    use Net::SSLeay qw(get_https post_https sslcat make_headers make_form);
6
7    ($page)
8             = get_https('www.cnn.com', 443, '/',
9                    make_headers(
10                           'User-Agent' => 'Cryptozilla/5.0b1',
11                           'Referer'    => 'https://www.cnn.com'
12                  ));     
13  return($page);  
14
15 }
16 EOS

__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com