#!/usr/bin/perl -w
# Complementary2
#    VERSION: 1 (11 June 2004)
#    PURPOSE: Determine whether two given nucleotides are complementary
#             Uses a subroutine to do it
#    INPUT FILES: None
#    OUTPUT FILES: None

############## LIBRARIES AND PRAGMAS ################

  use strict;

#################### CONSTANTS #######################

  my $LF = "\n";
  my $tab = "\t";
  my $true = 1;
  my $false = 0;

#################### VARIABLES ######################

  my [give a variable the value of a nucleotide "G" "A" "T" or "C"] ;            my [give another variable the value of a nucleotide] ;

###################### FILES ########################

################### MAIN PROGRAM ####################

  if ( Complementary ([one variable],[another variable]) ) {
     print [fill in] ;
  } else {       
     print [fill in] ;
  }

#################### SUBROUTINES ####################

#### COMPLEMENTARY (letter 1, letter 2)
#    Determines whether one letter is complementary to another
#    Returns true if it is, false if it isn't
sub Complementary {

   my (letter1, letter2) = @_;
   if [fill in]
      return true;
   [more]
      return false;

}

