$useragent=new LWP::UserAgent;
          $request=new HTTP::Request('GET', "https://myipaddress/someapps/someapp.cgi");

          $result=$useragent->request($request);
          $placibo2[0]=$result->{_content};
          if ($placibo2[0])
          {
            print header;
            print $placibo2[0];
          }