#!/usr/bin/perl

# This is a simple script which converts all the standard-input to
# uppercase. It is used to test the p2open library

select STDIN;  $| =1;
select STDOUT; $| =1;

while (<STDIN>) {
  chop;
  print STDOUT uc($_),"\n";
}