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