#!/usr/bin/perl -w
package main;


# Define a subroutine.
sub printRand {
  my $max = 50;
  print int($max*rand())+1;
  print "\n";
}

# returns 5.
sub giveMeFive {
  return 5;
}

# -------------------------------------------

# Prints its two inputs.
#  Inputs:   $x, $y
#  Returned: none
#  Side effect: printing
#  Usage: printInput("hi", "bye");
sub printInput {
  my ($x, $y) = @_;
  print " first input is '$x'\n";
  print " second input is '$y'\n";
}

sub debugPrint {
  
  my ($string) = @_;
  if ($DEBUG){
    print "DEBUG> $string\n";
  }
}

debugPrint(" color = '$color'");


printInput( giveMeFive() );
printInput("hello", "goodbye");

# printRand50 for 1..20;
# printRand50() for 1..20;
