[perl]output pattern repeat by input number.

#!/usr/bin/env perl
#input a pattern adn a number
#output pattern repeat by input number.
$shell="clear";
print `$shell`;
print "===============================================\n";
print "2.11[5])\nPlease a patten and anumber.\n";
print "pattern string:";
$pattern=<STDIN>;
print "repeat num:";
$repeat=<STDIN>;
print "output string = \n".$pattern x $repeat ;
print "===============================================\n";