#!/usr/bin/perl -w


print "Ola, Como te chamas? ";

$x=<STDIN>;  
chop $x ;
print "ok $x, adeus\n"