#!/usr/bin/perl -w
#  vim:ft=perl:ts=4:sw=4:et:is:hls:ss=10:
use strict;
use warnings;

    my  $the_cmd    = 'dir';
    printf "About to call system('%s') ...\n", $the_cmd;
    my  $rc = system( $the_cmd );
    printf "Return code from system() call was %d (0x%04X)\n", $rc, $rc;

##</code><code>##

@echo off

:menu1
echo c)lear all
echo f)ill a bunch
echo l)ist them
echo s)ize them
echo r)un Perl program
echo q)uit
set /p zans="what to do? [cflqrs] "
if "%zans%X"=="X" goto menu1
if /i "%zans%"=="c" goto docl1
if /i "%zans%"=="f" goto dofl1
if /i "%zans%"=="l" goto doli1
if /i "%zans%"=="q" goto doqu1
if /i "%zans%"=="r" goto doru1
if /i "%zans%"=="s" goto dosz1
goto menu1

:docl1
set zcount=350
set zcounter=1
:clagain
rem echo I see %zcounter% and %zcount%
if %zcount% LSS 1 goto :menu1
if not defined zenv%zcounter% goto menu1
rem echo Once again, doing zenv%zcounter% ...
set zenv%zcounter%=
set /a zcounter+=1
set /a zcount-=1
goto clagain

:dofl1  ---------------------------------------------------
set /p zans="how many should I fill? "
if "%zans%X"=="X" goto menu1

set zcount=%zans%
echo Will fill %zcount% environment variables with 100-char values

:flagain
if %zcount% LSS 1 goto :menu1
set zenv%zcount%=a123456789b123456789c123456789d123456789e123456789f123456789g123456789h123456789i123456789j123456789
set /a zcount-=1
goto flagain

:doli1
set zenv
goto menu1

:dosz1
set zenv >zenv.size
set >all.env.size
dir zenv.size all.env.size
goto menu1

:doru1
perl -w joinersw1a.pl
goto menu1

:doqu1
echo okay, quitting, bye!
goto :eof

rem vim:ft=dosbatch:ts=2:sw=2:et:is:hls:ss=10: