#!/usr/local/bin/perl

# this program asks for a number n, and prints 2 to the
# exponent n

print ("Enter the exponent to use: ");
$exponent = <STDIN>;
print ("Two to the power $exponent is ",
       2 ** $exponent, "\n");
