Select Code to Download

#!perl
use HTTP::Proxy;
...
# this is a MainLoop-like method
print "Running proxy on port $port\n";
$proxy->start;

#!perl
use strict;
...
    $str=~s/[\r\n\s\t]+$//s;
    return $str;
    }