my $self = shift;
$self->{file} = shift if @_;
my $file = $self->{file}; # or just leave this out and use $self->{file}