sub filename
{
   my ($self, $file) = @_;

   $self->{file} = $file if $file;

   return $self->{file};
}