#!/usr/bin/perl -w

print "Insere um nome ou adjectivo em singular : ";

$Palavra = <STDIN>;
chomp $Palavra;

$Plural = $Palavra . "s" ;

print "O plural de \"$Palavra\" e o seguinte: \n";
print "$Plural\n";