Line dir

Add a line directive to PERL

#line {nn} ["filename"]

This is done by creating a array of filenames and using the upper bits of the line_number to determine the current filename.  The original filename is in position 0.