#!/usr/local/bin/perl -T print "Content-type: text/html\n\n"; print qq` `; $type = <>; chomp($type); $file = "temp.gif"; if ($type =~ /jpg/i) { $file = "temp.jpg"; } unlink ("TempImage/temp.gif"); unlink ("TempImage/temp.jpg"); open (OUTPUT, ">TempImage/$file") || die ("Could not open TempImage/$file for writing"); while (<>) { print OUTPUT $_; } close OUTPUT;