use strict;
use warnings;

package Protein;

sub calculate_mw { 
    my $self = shift;
    # do it..

}

1;