sub file {
        my $self = shift;
        if (@_) {
                $self->{file} = shift;
        }
}