Select Code to Download

#!/opt/local/bin/perl

use strict;
...
        print ("color is ", $color, "\n");
    
}

Last login: Tue Jun 25 21:03:59 on ttys000
usxxcoblemm1:~ coblem$ cd testing
...
1372261642 color is red
usxxcoblemm1:testing coblem$

Scalar value @quake_times[1] better written as $quake_times[1] at file
+stats_2.pl line 36.
Scalar value @quake_times[0] better written as $quake_times[0] at file
+stats_2.pl line 39.
...
1372261739 File::stat=ARRAY(0x7f8fc9055238)color is green
1372261739 File::stat=ARRAY(0x7f8fc9055190)color is green
usxxcoblemm1:testing coblem$