$file = '/home/steven/http.list'; open(INFO, $file); @lines = ; close(INFO); #### foreach $i(@lines){ #### #!/usr/bin/perl -w use strict; use IO::Socket; my $sock = new IO::Socket::INET ( PeerAddr => 'website.org', PeerPort => '80', Proto =>'tcp', ); die "Could not create socket: $!\n" unless $sock; print $sock ""this is where i need my http statement to go (from the file list"; close($sock);