Well, STDIN should work!

  print "Type some: " ;
  
  my $in = <STDIN> ;
  chop($in) ;
  
  print "In: $in\n" ;
[download]

But in what OS the client work? You can put a GUI for the app, like wxPerl or TK.

Graciliano M. P.
"The creativity is the expression of the liberty".