Help for this page

Select Code to Download

Select or download this

!/usr/bin/perl -w

...
close FILE;
print "...Created $file\n";