#!/usr/bin/perl -w
# Protein_mol_weight
#    VERSION: Version 1 (20 November 2003)
#    PURPOSE:  Shell to test new capabilities of AA_module2.pm

############## LIBRARIES AND PRAGMAS ################
  use strict;
  use AA_module;

#################### CONSTANTS ######################

  my $seq = "MVSQIPKETCPRPFLKWAGGKSRLIPQYLSHLPKNYRTYHEPFLGGGALF";

#################### VARIABLES ######################

###################### FILES ########################

################### MAIN PROGRAM ####################

  print "Molecular weight = ", Mol_wt($seq);  

#################### SUBROUTINES ####################
