#!/usr/bin/perl -w

use strict;
my $freezer = "frozen.env";

open (FROZEN, $freezer)
  ||  die "Could not read saved environment $freezer\n";
while (<FROZEN>)
{
     chomp;
     my ($var, $value) = /^([^=]+)=(.*)/;
     $ENV{$var} = $value;
}
close (FROZEN);

system (@ARGV);