# - # is the comment character in Perl, use this to toggle comments in your program. Also note that comments are ignored by the Perl interpreter.

#!/usr/bin/perl #This is something known as a shebang line, used these to associate your Perl program with the Perl bin / interpreter.

print("Who would you like to say hello to? "); #Prints the specified prompt-based text to the Perl console.

$user = <STDIN>; #This is a macro in Perl you use to receive input from the user.

chomp($user); #Removes the newline from the <STDIN> macro so it doesn't cause the Perl interpreter to have trouble validating user input.

#If, Else, ElseIf control structures.

if ($user eq "beeer") { #The keyword eq is used for case-sensitive procedures.
    print "beeer maid? \n"; #\n is an escape character in Perl, it's used to start newlines, similar to the @CRLF macro in AutoIt.
}
elsif ($user eq "Protozoid") {
    print "You hit the jackpot! Protozoid is winrar. ^___^ \n";
}
else { #If none of the blocks above are true (user is not Protozoid or beeer), execute the statement(s) after the else control structure.
     print("hello, " . $user . "!" . "\n") #. is the concatenation operator in Perl. Use it to join strings together.
}

$keep_alive = <STDIN>; #Using this at the end of your Perl scripts makes the interpreter assume that you're still trying to receive user input; use this to keep your Perl programs alive if you don't want the console to close immediately after everything is executed.