perl -ne 'print uc' foo_input_file
# or
perl -pe '$_ = uc' foo_input_file
# or even ...
perl -pe 's/(.+)/\U$1\E/' foo_input_file