# Start of program sub myeval { eval shift } use strict; use warnings; # ...rest of program