#!/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> ;
print "1234567890" x3 ;
foreach (@userin) {
	printf "%20s", $_ ;
}