#!/usr/local/bin/perl -T
$file1 = "java.gif";
$file2 = "cgi.jpg";
$record_separator = "__CabbageNeck_Peter_Joe_Erik_Mark_Anthony_David_987XxX\n";
print "Content-type: text/html\n\n";
print qq`
Test Image Data
`;
print "gif";
print $record_separator;
printFileContents($file1);
print $record_separator;
print "jpg";
print $record_separator;
printFileContents($file2);
print "\n";
sub printFileContents {
my $file = shift;
open (FILE, "<$file") ||
die ("Could not open $file for reading!\n");
binmode(FILE);
while () {
print $_;
}
close (FILE);
}