Help for this page
my $can = $canvas; eval($buffer);
use Sub::Install; Sub::Install::install_sub({ ... }); &foo($canvas);