#ex_02-4
#Learning Perl Appendix A, Exercise 2.4
print "String: "; $a = <STDIN>;
print "Number of times: "; chomp($b = <STDIN>);
$c = $a x $b; print "The result is:\n$c";
