package HTMLTag;

sub new {
    bless { tag => '', mainval => '', subval => '' },$_[0];
}

sub tag {
    my $self = shift;
    $self->{tag} = $_[0] if $_[0]; # set if applicable
    $self->{tag}; # return
}

sub val {
    my $self = shift;
    $self->{mainval} = $_[0] if $_[0];
    $self->{mainval};
}

sub extra {
    my $self = shift;
    $self->{subval} = $_[0] if $_[0];
    $self->{subval};
}

sub str {
    my $self = shift;
    my $ret = join($self->{tag},"<",">");
    if ($self->{tag} eq 'a'){
        $ret .= join(""," href='",$self->{mainval},">",$self->{subval},"</a>");
    } elsif ($self->{tag} eq 'img'){
        $ret .= join(""," src='",$self->{mainval},"' alt='",$self->{subval},"'>"); # not sure about actual HTML correctness... i forget
    }
}

1; # keep Ryszard happy ;-)

##</code><code>##

use HTMLTag;

my $link = new HTMLTag;
$link->tag('a');
$link->val('img.jpg');
$link->extra('A picture of my dog');

my $image = new HTMLTag;
$image->tag('img');
$image->val('img2.jpg');
$image->extra('My cat');

print $link->str(),$image->str();