use strict;
use warnings;
use File2;

my $file2obj = File2->new();
print "var: " . $file2obj->{var} . "\n"; #should print 1
$file2obj->{var} = 10 . "\n";
print "var: " . $file2obj->{var}; #should print 10