Select Code to Download

use strict;
use warnings;
...

my $x = dubble(23);
print $x; # 46

#define PERL_NO_GET_CONTEXT

...
OUTPUT:
  RETVAL