Select Code to Download

#!/usr/bin/perl -w

my $cusr;
...
else{
    print "ERROR: username or password incorrect, please try again\n "
+;
}

if($pword==$cpword){
        
    open (FILE, "memberlist.txt");
...
        close FILE;
    }
}