#!/usr/bin/perl -T

print "Content-type: text/html\n\n";
use lib "/home/wbc/www/perllib";
use warnings;
use Validate; 
use strict;
use CGI;

   my $query = new CGI;

   my $age   = Validate->numbers ($query->param('age'));
   push @errors, "Please, use only numbers.\n" unless $age;
		
__END__

package Validate;

sub numbers {
   my ($class, $value) = @_;
   return unless $value =~ /^([0-9 \.-]*)$/;
   return "$1";
}
1;