To get the hostname from the operating system, you need the text results(STDOUT) from the execution of the "hostname-s" command. (There are other ways to do this in perl, using modules).

The system command does NOT return the contents of STDOUT, it merely returns the exit status value.

To get the OUTPUT, use backticks (``), or the qx command.

my $hostname = qx[hostname -s];
chomp ($hostname); # Gets rid of trailing CR
[download]

You need to get the $hostname value filled-in BEFORE using it in the @email assignment.

To make your program a little easier to read, when you are ready for it, lookup the next; statement. If you put a "next" in your "if" statement, you can avoid the "else" , and just place those statements after the closing brace of the "if".