#!/usr/local/bin/perl -wT
use strict;
use POSIX qw(strftime);

print "Content-Type: image/jpeg; \nLocation: https://www.cs.dartmouth.edu/~ac/amit.jpg\n\n";