package File2;
use strict;
use warnings;
use fields qw(var); # to keep yourself from making stupid typos, like calling $file2obj->{vaar};

sub new {
  my $package = shift;
  my $self = fields::new($package);
  $self->{var}=1; # initialize var;
  return $self;
}
1;