use strict;
use vars qw($program);

$program={};