#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); require "./cookie.lib"; require "./common.cgi"; &get_input; print "Content-type: text/html\n\n"; &get_files; exit; ######### Get files ####### sub get_files { $abs_dir = "/hsphere/local/home/karamvee/kamsart.com/clip-art/baby"; print <<__END_OF_MESSAGE__; Free Baby Clipart

Free Baby Clipart



Baby clipart - Welcome to KamsArt's free baby clipart gallery. Here you will find collection of free baby clipart, collected from various internet sites and newsgroups, with permissions. All these free baby clipart are in public domain and can be freely used by anybody. Some of the free baby clipart is there more than ones.
Please do not link directly to the individual free baby clip art images, but link to this page.
Google Web Kamsart.com
Free Baby Clipart
  • Free Clipart
      __END_OF_MESSAGE__ print "
    • Free Baby Clipart"; print "
        "; $total_files=0; opendir(DIR, "$abs_dir"); @files = readdir(DIR); closedir(DIR); $total_files = @files; print ""; foreach $file (@files) { unless(-d $file) { print "
      • $file
        \n"; } } print "        "; print <<__END_OF_MESSAGE__;



__END_OF_MESSAGE__ }