I do know that this is bad style and I wouldn't do it myself, but this should work for a quick hack like this appears to be:
Include this in your main program:

use vars qw/$foot $head/;
require Defaults;
[download]

and let your Defaults.pm be something like:

package Defaults;

$::head = 'foo';
$::foot = 'bar';
[download]

If you want to have a "good"solution please use merlyn's suggestion!
-octo-
--
GED/CC d-- s:- a--- C++(+++) UL+++ P++++$ L++>++++ E--- W+++@ N o? K? w-- O- M-(+) V? !PS !PE !Y PGP+(++) t-- 5 X+ R+(+++) tv+(++) b++@ DI+() D+ G++ e->+++ h!++ r+(++) y+