Select Code to Download

fee
fi
fo
fum

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

while (<STDIN>) {
  print uc($_);
}

FEE
FI
FO
FUM