1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6my $exp = 1;
7for my $i (1 .. 20)
8{
9    $exp *= 2;
10}
11