Select Code to Download

use Win32::Daemon;
open ( OUT, "C:\\Out.txt" ) || die ( "Unable to open file: $!" );
...
 sleep(5);
}
Win32::Daemon::StopService();

#!/usr/bin/perl -w
use Win32::Daemon;
...
 print "Error:";
 print Win32::FormatMessage( Win32::Daemon::GetLastError() ), "\n";
}