Select Code to Download

#!C:/Perl/bin -w
use strict;
...
    }
    return($mon);
}

__DATA__
Fri Dec 3 23:07:21 EST 2004 : Depth is : 234
...
Sat Feb 26 14:13:12 EST 2005 : Depth is : 4567
Fri Mar 11 17:09:38 EST 2005 : Depth is : 265
Sat Mar 12 07:07:27 EST 2005 : Depth is : 1654