use Coy;

while (<>)
{
	separator();
	warn $_;
	separator();
}

sub separator
{
	print "\n", "="x40, "\n\n";
}