use strict;

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

    # Call sub.
  &$func;
}