Select Code to Download

use strict;
use warnings;
...
print "BETWEEN\n";
$test->{a}->();
print "AFTER\n";

C:\Perl\test>perl order_sub.pl
BEFORE
BETWEEN
Hello
AFTER