use Inline::Files;
while (<FILE>) {
print "$FILE: $_";
}
__FILE__
File 1
here
__FILE__
File 2
here
__OTHER_FILE__
other file 1
__FILE__
File 3
here
use Inline::Files;
while (<FILE>) {
print "$FILE: $_";
}
__FILE__
File 1
here
__FILE__
File 2
here
__OTHER_FILE__
other file 1
__FILE__
File 3
here
::
::
::
