use strict;
use warnings;

sub new {
    my($class, $args) = @_;
    $args = {} unless defined $args;
    die "Arguments must be a hash ref\n" unless ref($args) eq 'HASH';
    my $self = { %$args };
    bless $self, $class;
    return $self;
}

sub print {
    my $self = shift;
    $self->{fh} = *STDOUT unless defined $self->{fh};
    my $fh = $self->{fh};
    print $fh (map { defined $_ ? $_ : '[UNDEF]' } @_);
}
1;