Select Code to Download

#!/usr/bin/perl -w
use strict;
...
require 'file2.pl';  # you can use 'do' also

print "after $error \n";

#!/usr/bin/perl -w
use strict;

our $error = 20;

before 10
after 20