#!/usr/bin/perl -w

my $cusr;
$cusr=bob;      

my $cpword;
$cpword=pass;   

print "What is your username? ";
$usr=<>;
chomp($usr);

if($usr==$cusr){
    print "One moment please...\n ";
    print "Please enter your password:\n ";
    $pword=<>;
    chomp($pword);  

    if($pword==$cpword){
        print "One moment please...\n ";
        print "Authentication Complete!\n ";      
    } 
}
if($pword==$cpword){
        
    open (FILE, "memberlist.txt");
    
    while(<FILE>){
        push @lines,$_;
        
        close FILE;
    }       
}

else{
    print "ERROR: username or password incorrect, please try again\n ";
}