Select Code to Download

    sub new{
        my $self ={};
...
        bless($self);
        return($self);
    }

    sub new{
        my ($class,$filename) = @_;
...
        bless $self, $class;
        return $self;
    }