#!/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;

##</code><code>##

#!/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, $msg unless $age;       #something like this but know it's not correct
		
__END__

package Validate;

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