#!/usr/bin/perl use warnings; use strict; our $x = 12; require './2.pl'; print "Done\n"; #### #!/usr/bin/perl use warnings; use strict; our $x; print $x, "\n"; #### 12 Done
## #!/usr/bin/perl use warnings; use strict; our $x; print $x, "\n"; ##
## 12 Done