in reply to adding sys env var

also, you could add the following a line 3 : 
my ($Host,$Key,$Value);

[download]
may the foo be with you

In Section Seekers of Perl Wisdom