Miscellany

#!/usr/bin/perl

print "What is your name?  ";
chomp($name = <STDIN>);

print "What is your favorite number?  ";
chomp($number = <STDIN>);

$count = 0;
while ($count < $number) {
	$count += 1;
	print "$name\n";
}