#!/usr/bin/perl -ws

use strict;
use vars qw( $size $shape );

print "A $shape of size $size\n";