Good examples of perl cod

Hey guise im doing some perl code first time in a while you know?

Well can you show me yours like variable naming/defining subs etc.

Some nice nomenclature pls thanks.

#!/usr/bin/perl -w
use strict;
use NET::Seriouspost;
my ($reader, $idort);

if ($reader eq $idort) {
  die("Stop reading there, please. I'm really serious. Useless flaming is useless.\n";
}

else {
print <<"EOF";
Call me a troll, idiot, whatever...

I can read Perl a lot easier than any other programming language. I know Python and C pretty well too, but Perl just makes more sense for me. I also prefer to do about everything in Perl instead of C or Python.
I don't know where this habit comes from, but I just feel like I'm home with perl. C or Python really confuses me some times, while Perl makes sense.
EOF
exit 0;
}