Select Code to Download

*p2::func = $func;

...

our $x = 100;
func();

*p2::func = \$func;

...

our $x = 100;
$func->();

#!/usr/bin/perl

...

our $x = 100;
func($x);

#!/usr/bin/perl

...

our $x = 100;
func();