#!/usr/local/bin/perl require 5; $output = "/home/httpd/htdocs/icons.html"; $input = "/home/httpd/htdocs/images/icons"; open(OUTPUT,">$output"); open(INPUT,"ls $input/*.gif |"); &Header(); while() { chomp; if (/(.*)\/(.*)$/) { $string = $2; print OUTPUT "\"$string\"\n"; print OUTPUT "$string\n"; print OUTPUT "

\n"; } } print OUTPUT < Other Icon Repositories

EOM &Footer(); close(INPUT); sub Header { print OUTPUT < BOFH Icon Page

BOFH Icon Page

Last Updated: $date

EOM return; } sub Footer { print OUTPUT < Back to the BOFH Home Page EOM return; } close(OUTPUT);