Help for this page

Select Code to Download

Select or download this

sub getfile {
   ...
...

for (@$file ) { ... }
for (@$file2) { ... }