start_form("get");   #will start the form
        print "What's the User name? ",textfield(-name=>'Username',-value=>'user'),
     #will get the user name

    p,  #this gives a new paragraph

    "Please enter your password: ",textfield(-name=>'password',-value=>'pass'),
     #will get the password
    

#to validate is the problem

#!/usr/bin/perl
use strict;
use warnings;
#STEP1 - JOB:::::to create a file named suppliers.txt from names.txt and numbers.txt in the format ---------------> names:numbers these are in names.txt and numbers.txt respectively
#ask the user for a name or number and search for the same, whether name or number.
#STEP3 - user types a supplier name and it is append my supplier list to that file
#STEP