#!/usr/bin/perl -w
# shift_right.pl - Don Yang (uguu.org)
#
# Shift all lines right by specified number of spaces
#
# 07/12/10

use strict;
die "$0 <characters>\n" unless $#ARGV >= 0;

my $size = shift @ARGV;
while( my $line = <> )
{
   print ' ' x $size, $line;
}