#!/usr/bin/perl -T



my $extension;

my $mimetype;



$extension = "bmp";



if($extension == "jpg")

{

	$mimetype = "image/pjpeg";

}

elsif($extension == "gif")

{

	$mimetype = "image/gif";

}

elsif($extension == "bmp")

{

	$mimetype = "image/bmp";

}

elsif($extension == "zip")

{

	$mimetype = "application/x-zip-compressed";

}

else

{

	$mimetype = "application/octet-stream";

}



print $mimetype;

print "
";