#!/usr/bin/perl -w

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

open (FROZEN, ">$freezer")
  || die "Could not write to $freezer\n";

foreach (keys %ENV)
{
     print FROZEN "$_=$ENV{$_}\n";
}

close (FROZEN);

##</code><code>##

#!/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);

##</code><code>##

% perform make

##</code><code>##

my $freezer = (getpwuid($>))[7]."/.frozenrc";