use Net::Daemon::SSL;
package MyDaemon;
@MyDaemon::ISA = qw (Net::Daemon::SSL);
sub Run
{
  my $this = shift;
  my $buffer;
  $this->{socket}->print ( "vasja was here\n" );
  $this->{socket}->sysread ( $buffer, 100 );

  # Attention! getline() method
  # do not work with IO::Socket::SSL
  # version 0.73
  # see perldoc IO::Socket::SSL
  # for more details
}
package main;
my $daemon = new MyDaemon ( {}, \ @ARGV ); 
# you can use --help command line key
$daemon || die "error create daemon instance: $!\n";
$daemon->Bind();