WindowTitle {FvwmScript-ComExample}
WindowSize 360 290
Font		-adobe-helvetica-bold-r-*-*-12-*

Init
Begin
    # set the com name
    Set $pid = (GetPid)
    Set $ComName = {ComExample-}$pid
    # defined when build
    Set $DATADIR = {/usr/share/fvwm}
    Set $Perl = {/usr/bin/perl}
    # run fvwm-script-ComExample.pl
    Do {Exec }$Perl{ -w }$DATADIR{/fvwm-script-ComExample.pl --com-name=}$ComName{ &}

    # startup cmd
    Set $Startup = (SendMsgAndGet $ComName {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp = {An error me {startup} 1)

    If $Startup == 0 Then
	Set $tmp