#! /usr/bin/perl -w -I.

use strict;

################################################################################
# DATA
################################################################################

# Standard Modules
use Data::Dumper;

my $pid      = '';                                                           # For forking.

my $templog    = '';

my @smokearr = ( 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h');

# Run ls over and over.
#----------------------------------------------------------------------
for ( my $index = 0 ; $smokearr[$index] ; $index++ ) {
        $templog  = "./$smokearr[$index].log";
        my $syscmd = "./smoke.sh > $templog 2>&1";
        fail("fatal: cannot fork: $!") unless defined( $pid = fork() );

        # Run sort as a child and exit
        if ( !$pid ) {
                print STDERR "Running [$syscmd] ($$)\n";
                system($syscmd) == 0
                  or print STDERR "fatal: system  \"$syscmd\" failed: $? See log $templog\n";
                exit 0;
        }
}

# Wait for the child processes to finish.
#----------------------------------------
wait;

# Check each log file for smoke.pl
#------------------------------------------------------------------------
for ( my $index = 0 ; $smokearr[$index] ; $index++ ) {
        $templog  = "./$smokearr[$index].log";
        my $syscmd = "grep smoke.pl $templog";

        print STDERR "Running [$syscmd] ($$)\n";
        system($syscmd) == 0
          or print STDERR "fatal: system  \"$syscmd\" failed: $? See log $templog\n";
}

exit 0;

##</code><code>##

#!/bin/sh

cat smoke.txt |sort | uniq -c

##</code><code>##

$ uname -a
AIX nevd1 1 5 000DA5AF4C00 unknown unknown AIX
$ perl --version

This is perl, v5.6.0 built for aix