#!/usr/bin/perl
use warnings ;
use strict ;
print "This program will display what you type in right justified 20 character columns.\nEnter text and press ctrl + d when done.\n"
my @userin = <STDIN> ;
printf "%-20s", @userin ;