Select Code to Download

use strict;     #<--****
use warnings;     #<---***

$main::x = 10;
print $main::x, "\n";  #10

use vars qw{$x};
print $x, "\n";  #10

# $y = 'hello';  #error under use strict
our $y = 'hello';
print $y, "\n";  #hello

{
    our $z = 5;
...

print $s, "\n";  #bye