Select Code to Download

#!/usr/bin/perl -w
#Purpose: To Take a DOS file wildcard and thus take all the matching c
+ustom SGML files in the working directory and subdivide them into new
+ files whose names are the id's of the divs in those original files.
...

#be nice and say it's done
print "Program Finished\n";