$ perl 1226028.pl
Please input numbers to be summed. Crtl-D to stop
12 12
Total: 24

$