#!usr/bin/perl # Author: Ryan Scadlock # Date: 6 July 2002 use strict;