#!/usr/bin/perl
use strict;
use warnings;
print "Type in a string: \n";
chomp ($string = <STDIN>);
$string.=' ';
print "Type in a number: \n";
chomp ($int = <STDIN>);
if ($int >= 100) {
  print "Whoa, too big man.\n";
} else {
  print "The result is \n", $string x $int,"\n";
}