#!/usr/bin/perl use strict; use warnings; #> global variables (the less, the better) #> -------------------------------------------------------------------------- #> sub routines #> -------------------------------------------------------------------------- # main script #> -------------------------------------------------------------------------- __END__