Select Code to Download

    my $chld_flag = 0;

...
        # Process user command, if any
        #   Such as launch child processes
    }

    $SIG{'USR1'} = sub { $flag = 1; };

...

        DoWork();
    };

    eval {
        eval {
...
            }
        };
    };

#!/usr/bin/perl

...
exit(1);

# EOF