Someone

#!/usr/bin/perl

print "Input a string.\n";
$string = <STDIN>;
print "Input a number.\n";
$number = <STDIN>;
chomp($string);
chomp($number);
while ($number > 0) {
        print "$string\n";
        $number = $number - 1;
}