Good Habits for More Secure Coding 

• Don't use this:

open my $fh, $filename or die ...

• Use this:

open my $fh, '<', $filename or die ...

• And watch out for:

while(<>) {
  ...
}