Help for this page

Select Code to Download


  1. or download this
    sub dates {}

sub update_data{}
  2. or download this
    @data0 = @data1 = @data2 = @data3 =([0..200], [300..500]);
  3. or download this
    #!/usr/bin/perl
use strict;
...
        );
    }
}