#!/usr/bin/perl
#*********************************************************
#            Example of using the package Rest
#             saved as Rest.pm in the lib area
#
#                      by Al Bento
#
#    First uses the convert and subsnew functions
#    then uses the constants $PI and $AB
#*********************************************************

# assign values to variables
$k = 50;
$c = "THIS is NOT right       ";
$radius = 15; 

# Including Rest.pm in the script
 
use Rest;

####### using functions from Rest ########

convert($k,$n);
subsnew($c);

print "\n$k Fahrenheit degrees are $n in Celsius \nThe value of c without blanks and lowercased is: $c\n";

####### using variables from Rest ########
print "\n-------------Variables example----------------------------\n";

$area = $PI * $radius**2;
$circumference = 2 * $PI * $radius;

print "\nThe area is $area and the circumference is $circumference\n";
print "Example created by $AB\n";