#!/usr/bin/perl -w
print "I will right justify the lines of input in a 20 char collumn.\n";
chomp(@input = <>);
foreach (@input) { printf ("%20s\n",  $_)}