Select Code to Download

#! perl.exe

...
    print LOG "$_[0]";
    return(0);
}

#! perl.exe -w

...
EOT

}

#X-CallInstall

...
{
    return( Win32::FormatMessage( Win32::Daemon::GetLastError() ) );
}