Select Code to Download

use strict;
use warnings;
...
print "var: " . $file2obj->{var} . "\n"; #should print 1
$file2obj->{var} = 10 . "\n";
print "var: " . $file2obj->{var}; #should print 10

package File2;
use strict;
...
  return $self;
}
1;