sub new
{
    my $self = [{},""];
    bless($self);
    return $self;
}
[download]

please never use the one-argument-form of bless. always bless into the $class you got as an argument to new. otherwise it's impossible to inherit from your class.
update: as rir /msgd me, of course you can inherit, but not from the constructor