#!/usr/bin/perl

$z = int(rand(2));

if ($z == 1)
{
	print "Heads \n";
}

if ($z == 2)
{
	print "Tails \n";
}