#!/usr/bin/perl
# Jaime Prilusky, 2008

  my $num = $ARGV[0] || 2;

  foreach $exp (1 .. 5) {
    print "$exp $num**$exp = ",$num**$exp,"\n";
  }