#!/usr/bin/perl -w
print "Enter a width and a bunch of lines for width right justification.\n";
chomp(($width, @input) = <>);
foreach (@input) { printf ("%".$width."s\n",  $_)}