#!/usr/bin/perl
# this program asks for a number, n, and prints 2 to the
# exponent n
print ("Enter the exponent to use:\n");
$exponent = ;
chop ($exponent);
print ("Two to the power $exponent is ",
        2 ** $exponent, "\n");