Select Code to Download

$file = '/home/steven/http.list';
open(INFO, $file);
@lines = <INFO>;
close(INFO);

foreach $i(@lines){

#!/usr/bin/perl -w
use strict;
...
die "Could not create socket: $!\n" unless $sock;
print $sock ""this is where i need my http statement to go (from the f
+ile list";
close($sock);