even better (i think):

my $self = shift;
$self->{file} = shift if @_;
my $file = $self->{file}; # or just leave this out and use $self->{fil
+e}
[download]