Instead of the eval() you could check if the method exists and then run it

if(ref $to_do and UNIVERSAL::can($to_do, $actions)) {
    $to_do->$actions();
} else {
    defscreen();
}
[download]

This also avoids the sticky situation when a method dies within the eval() and the script goes on. Also if you want to have private methods then you might want to look at Attribute::Protected.
HTH

_________
broquaint