my $self = shift;
my $file = $self->{'file'} = shift || $self->{'file'};