#!/usr/local/bin/perl -w
    use strict;

    my $code = <<CODE;
    sub foo {
        print "in foo\n";
    }
    CODE

    eval $code;
    foo();