As far as the syntax for eval(EXPR); I too like to make anything that can be one line accually one line so I often use the evalution order of if and do like:

#!/usr/bin/perl 
use strict;
use warnings;
print qq(Hey no error !\n) if(eval(q(1;))&&!$@);
[download]

---

Brought to you by that crazy but lovable guy... lindex

---