#!/usr/bin/perl

system("date");
if ( $? == -1 ) { print "Level 0 command failed: $!\n"; }
  else { print "Level 0 command exited with value ",($? >> 8),"\n"; }

for ($i = 1; $i <= 5760; $i++) {
  for ($j = 1; $j <= 2880; $j++) {
    $array1[$i][$j] = "<1234567890,1234567890,1234567890>";
    $array2[$i][$j] = "<1234567890,1234567890,1234567890>";
  }
}

system("date");
if ( $? == -1 ) { print "Level 0 command failed: $!\n"; }
  else { print "Level 0 command exited with value ",($? >> 8),"\n"; }

print "End\n";

exit;

##</code><code>##

Tue Feb 16 23:09:22 GMT 2010
Level 0 command exited with value 0
Level 0 command exited with value 0
End

##</code><code>##

Tue Feb 16 23:13:52 GMT 2010
Level 0 command exited with value 0
Tue Feb 16 23:14:13 GMT 2010
Level 0 command exited with value 0
End