my $op = shift;

for (qw(your hand is too cold to hold)) {
	eval $op;
	print $_, "\n";
}