#!/usr/bin/perl
use strict;use warnings;
use CGI;
use DBI;
use Template;
use CGI::Carp qw{fatalsToBrowser};
use Data::Dumper;
my ($tt_object,$template,$vars,$sample);

my $cgi_object=new CGI;
print $cgi_object->header('text/html');

my @params=$cgi_object->param;

my $username=$cgi_object->param("username");
my $password=$cgi_object->param("passwd");
my $fname=$cgi_object->param("fname");
my $lname=$cgi_object->param("lname");
my $address=$cgi_object->param("address");
my $telephone=$cgi_object->param("tel");
my $email=$cgi_object->param("email");

if(! @params=>[0]){print "EMPTY"}
print "@params";
print "@params[1]";
$username =~ /(\w+)/;
$email =~ /(.+)@(.+)\.(.{2,4})/;
$password =~ /(.+)/i;
$fname =~ /([\w\s-]+)/;
$lname =~ /([\w\s-]+)/;
$address =~ /([\w\s-]+)/;
$telephone =~ /([\d\s-]+)/;