RosettaCodeData/Task/User-input-Text/Perl/user-input-text.pl

print "Enter a string: ";
my $string = <>;
print "Enter an integer: ";
my $integer = <>;