#!/usr/bin/perl 
use HTTP::Proxy;
my $proxy = HTTP::Proxy->new( port => 443);
$proxy->start;