# object interface
sub new {
    my ($class, $stream, $path, ) = @_;
    my $file = undef;
    $path = cwd unless @_ > 2;
    my $self = {
            file    => \$file,
            path    => File::Spec->canonpath($path),
            };
    bless $self, $class;
    return $self;
}