####################################
### Filter - Gets rid of         ###
### characters that screw up the ###
### program.                     ###
####################################
sub filter{
  $_[0]=~s/\'/\\\'/g;
  return $_[0];
} # End of filter subroutine
#################################################################

1;  # Required or won't work!