- or download this
$var = "value";
print($main::var eq "value" ? "true" : "false", "\n"); # true
- or download this
our $var = "value";
print($main::var eq "value" ? "true" : "false", "\n"); # true
- or download this
package Test;
$var = "value";
print($Test::var eq "value" ? "true" : "false", "\n"); # true
- or download this
our $var;
package Test;
$var = "value";
print($Test::var eq "value" ? "true" : "false", "\n"); # false