$ perl porttest.pl 
Creating New socket: www.google.ch, 80, 45
$