/usr/share/perl5/CGI/examples
NameSizeModeActions
WORLD_WRITABLE/-0755rm
caution.xbm7410644editdlrm
clickable_image.cgi8080644editdlrm
cookie.cgi22630644editdlrm
crash.cgi1310644editdlrm
customize.cgi24540644editdlrm
diff_upload.cgi15950644editdlrm
file_upload.cgi19980644editdlrm
frameset.cgi20760644editdlrm
index.html34870644editdlrm
internal_links.cgi10190644editdlrm
javascript.cgi30490644editdlrm
make_links.pl1960644editdlrm
monty.cgi20860644editdlrm
multiple_forms.cgi15990644editdlrm
nph-clock.cgi3590644editdlrm
nph-multipart.cgi2630644editdlrm
popup.cgi10240644editdlrm
save_state.cgi23110644editdlrm
tryit.cgi7800644editdlrm
Edit: /usr/share/perl5/CGI/examples/nph-multipart.cgi (263B)
#!/usr/local/bin/perl use CGI qw/:push -nph/; $| = 1; print multipart_init(-boundary=>'----------------here we go!'); while (1) { print multipart_start(-type=>'text/plain'), "The current time is ",scalar(localtime),"\n", multipart_end; sleep 1; }