| Current Path : /proc/self/root/proc/self/root/proc/self/root/usr/share/doc/perl-Inline-Files/demo/ |
| Current File : //proc/self/root/proc/self/root/proc/self/root/usr/share/doc/perl-Inline-Files/demo/demo_singles.pl |
use Inline::Files;
foreach $filename (@FILE) {
open HANDLE, $filename;
print "<<$filename>>\n";
while (<HANDLE>) {
print;
}
}
__FILE__
File 1
here
__FILE__
File 2
here
__OTHER_FILE__
other file 1
__FILE__
File 3
here