#use strict;
use Win32;
use Win32::Daemon;
use Log::Log4perl qw(:easy);
use IO::Socket;

use constant MYPORT => 9797;
use constant TIMEOUT => 5;                       
    
our $conf_file = 'conf.conf'; 
my $log_file = 'logfile.log';

$SERVICE_SLEEP_TIME = 20; # 20 milliseconds
$PrevState = SERVICE_START_PENDING;

Win32::Daemon::StartService();

while( SERVICE_STOPPED != ( $State = Win32::Daemon::State() ) )
{

if( SERVICE_START_PENDING == $State )
{
    # Initialization code
    Win32::Daemon::State( SERVICE_RUNNING );
    $PrevState = SERVICE_RUNNING;
}
elsif( SERVICE_STOP_PENDING == $State )
{
  Win32::Daemon::State( SERVICE_STOPPED );
}
elsif( SERVICE_PAUSE_PENDING == $State )
{
  # "Pausing...";
  Win32::Daemon::State( SERVICE_PAUSED );
  $PrevState = SERVICE_PAUSED;
  next;
}
elsif( SERVICE_CONTINUE_PENDING == $State )
{
  # "Resuming...";
  Win32::Daemon::State( SERVICE_RUNNING );
  $PrevState = SERVICE_RUNNING;
  next;
}
elsif( SERVICE_STOP_PENDING == $State )
{
  # "Stopping...";
  Win32::Daemon::State( SERVICE_STOPPED );
  $PrevState = SERVICE_STOPPED;
  next;
}
elsif( SERVICE_RUNNING == $State )
{
  # The service is running as normal...
  # main code here...
    

    ################################################
    ##                  MAIN LOOP                 ##
    ################################################
    our $sock = new IO::Socket::INET(LocalPort => MYPORT,
                         Reuse     => 1,
                         Listen    => 5    )
        or LOGDIE "can't create local socket: $@\n";
    
    INFO "Accepting connections on Port ", MYPORT, "...";
    my $counter = 0;
    while (our $client = $sock->accept()) {
        INFO "Connection from ",
              $client->peerhost(), ":", $client->peerport();
        while (<$client>) {
            unless ($_ =~ /^[\w.-_\s]+$/) {
                print $client "Invalid Input!. Type [h]elp for help\n"
+;
                next;
            }
            chomp; 
            $_ =~ s/\r$//; 
            DEBUG "Got command: $_";          
            my $output = get_output($_);
            print $client $output;
        }
        INFO "Client " . $client->peerhost() . " has disconnected.";
    }


}
else
{
  # Got an unhandled control message. Set the state to
  # whatever the previous state was.
  Win32::Daemon::State( $PrevState );
}

    # Check for any outstanding commands. Pass in a non zero value
    # and it resets the Last Message to SERVICE_CONTROL_NONE.
    if( SERVICE_CONTROL_NONE != ( my $Message = Win32::Daemon::QueryLa
+stMessage( 1 ) ) )
    {
      if( SERVICE_CONTROL_INTERROGATE == $Message )
      {
        # Got here if the Service Control Manager is requesting
        # the current state of the service. This can happen for
        # a variety of reasons. Report the last state we set.
        Win32::Daemon::State( $PrevState );
      }
    elsif( SERVICE_CONTROL_SHUTDOWN == $Message )
    {
      # Yikes! The system is shutting down. We had better clean up
      # and stop.
      # Tell the SCM that we are preparing to shutdown and that we exp
+ect
      # it to take 25 seconds (so don't terminate us for at least 25 s
+econds)...
      Win32::Daemon::State( SERVICE_STOP_PENDING, 25000 );
    }
  }
  # Snooze for awhile so we don't suck up cpu time...
  Win32::Sleep( $SERVICE_SLEEP_TIME );
}
# We are done so close down...
Win32::Daemon::StopService();
exit;

################################
sub get_output {
################################    
    my ($cmd) = @_;
        my output = do_something();
    return $output;
}
[download]

Janitored by Arunbear - replaced pre tags with code tags, to allow code extraction; also added READMORE tags