iperl> my $foo = "abc"

    = abc

    iperl> do {

               my $bar = "def"

               }

    = def

    iperl> print $foo

    abc

    = 1

    iperl> print $bar
     
    Use of uninitialized variable in...

##</code><code>##

    iperl> use IPerl::Mixins::Benchmark

    iperl> benchmark_on()

    iperl> use time_consuming_module

      4 wallclock secs ( 1.58 usr +  0.19 sys =  1.77 CPU)

    iperl>