#! /usr/bin/perl -wT

use strict ;
use warnings ;
use diagnostics ;

use Socket ;
use IO::Select ;

my @pm_send = () ;

# These should be altered by a config file, but for now
#  I've given the addies for the monastery
my $PM_ADDR = '209.197.123.153' ;
my $PM_PORT = 80 ;

# Start the connection to the socket
my $proto = getprotobyname( 'tcp' ) ;
socket( PM_SCK, AF_INET, SOCK_STREAM, $proto ) ;
my $pm_in = sockaddr_in( $PM_PORT, inet_aton( $PM_ADDR ) ) ;
connect( PM_SCK, $pm_in) || warn "Can't create pm_sck: $!" ;

# set up autoflush
select( PM_SCK ) ; $| = 1 ; select ( STDOUT ) ;

# set up an IO::Select for polling PM_SCK
my $sck_poller = new IO::Select ;
$sck_poller->add( \*PM_SCK ) ;

# now, after some tedium related to the application,
# I do something that looks like:
push @pm_send, "Some data" ;

# and then, in a main loop, I:
sck_poll() ;

sub sck_poll {
 if ( scalar @pm_send ) {
  my @writeable = $sck_poller->can_write(0) ;
  if( scalar @writeable ){
   my $out = shift(@pm_send) . chr(1) ;

   #this is the part that hangs forever.
   print PM_SCK $out ;
   print "You did it! \n" ;
  }
 }
}
[download]