#!/usr/bin/perl

# A little script to call mysort on many files
# Author: Ian Hickman

# initialise
use strict;

my ($i, $s);

# loop through all user files
for( $i=0; $i<32158; $i++ ){
  $s="mysort < users\/u" . $i . " >> sorted\/sortedlogs";
  print "$s\n";
  system "$s";
}