#!/usr/bin/perl
printf "Location: /picture/picture_%d.jpg\n\n", (localtime)[7];