Select Code to Download

Starting Enterprise...
...
Can't use an undefined value as an ARRAY reference 
  at ./trek.pl line 39.

#!/usr/local/bin/perl -w
use strict;
...
  $self->{y} = rand(-1)*1000;
  $self->{z} = rand(-1)*1000;
}