#!/usr/bin/perl -w

#
# Trivial example of some behavior to test.
#


# return the square root of a given number.
sub SQRT {
  my ($x) = @_;
  return sqrt($x+1);
}

# Return true when "required" by another perl file.
1;