use strict;
use warnings;

my $sum = 0;

while(1){
    print "Please input a number: ";
    chomp(my $number = <STDIN>);

    add $number to $sum;
    print "Your sum is now: $sum";
}