#! /usr/bin/perl
#client for a basic sockets program
use warnings;
use Socket;

socket(TO_SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$inet_addr = inet_aton('localhost') or die("couldn't do it: $!");
$paddr = sockaddr_in('8080', $inet_addr);
connect(TO_SERVER, $paddr) or die("Couln't connect: $!");
my $var = <STDIN>;
print TO_SERVER $var;
close(TO_SERVER);