#!/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);