my ($num1,$num2) = (3, 24);
print "$num1$num2\n";

##</code><code>##

print $pipe "$in\n"