You could try an anonymous function in a function instead. ... hope it helps /JD

use strict;

main();
sub main(){
   # Create a sub.
  my $func = sub {
    print "HELLO!!!\n";
  };

    # Call sub.
  &$func;
}
[download]