#!/bin/perl
use strict;
use warnings;
use Data::Dumper;
use FindBin;
use Win32::Daemon;
use Win32::Daemon::Simple
        Service => 'Service_name',
        Name => 'Service name',
        Version => '0.3',
        Info => {
                display =>  'myService',
                description => 'My service',
                user    =>  '',
                pwd     =>  '',
                interactive => 0,
        },
        Params => { # the default parameters
                Tick => 0,
                Talkative => 0,
                Interval => 1, # minutes
                LogFile => 'mylogfile.txt'};

ServiceLoop(\&doTheJob);
exit(0);

sub doTheJob{
  ### Here I write some lines into a file
}