fee fi fo fum ##

##

#!/usr/bin/perl -w
use strict;

while () {
  print uc($_);
}

##

##

FEE
FI
FO
FUM