Select Code to Download

#!/usr/bin/perl -w

use strict;
...
    bless($self, $class);
    return $self;
}

{
    my %history;

...
        $self->{$attrib} = $value;
    }
}

sub color {
    my $self = shift;
    if (@_) {
...
}

1;

#!/usr/bin/perl -w

use strict;
...
    $hist2->undo();
    print $hist2->all(), "\n\n";
}