use strict;
use constant::tiny;
use constant pi => 4 * atan2(1, 1);
use constant ponies => qw<
Twilight_Sparkle Fluttershy Pinkie_Pie AppleJack Rainbow_Dash Rarity
>;
use constant {
host => "mail.whatever.com",
port => 25,
user => "maddingue",
pass => "s3Kret",
};
print "pi = ", pi, $/;
print "host = ", host, $/;
print "ponies: ", join(", ", ponies), $/;