#!/usr/bin/perl -w

use strict;

{
	open(NPBXNUM1, ">npbxnum1");
	open(MYINPUTFILE, "npbxnum");

	while (<MYINPUTFILE>) {
	chomp;
	$line .= '_' x (4 - length $line);
	}

	close(MYINPUTFILE);
	close(NPBXNUM1);

	system "mv npbxnum1 npbxnum";
}

exit;

__END__

C:\Steve\Dev\PerlMonks\P-2013-09-17@2038-Use-Strict>usestrict.pl
Global symbol "$line" requires explicit package name at C:\Steve\Dev\PerlMonks\P-2013-09-17@2038-Use-Strict\usestrict.pl line 11.
Global symbol "$line" requires explicit package name at C:\Steve\Dev\PerlMonks\P-2013-09-17@2038-Use-Strict\usestrict.pl line 11.
Execution of C:\Steve\Dev\PerlMonks\P-2013-09-17@2038-Use-Strict\usestrict.pl aborted due to compilation errors.