# Compile some anonymous subroutine code in a variable
my $code='sub { print "A quick sample\n";}';
# Turn this into a reference to some executable code
my $subroutine=eval $code;
# Invoke the subroutine you just made
&$subroutine();