#!/usr/bin/perl

  use strict;
  use warnings;

  use Storable qw( freeze thaw );

  print ${ thaw freeze \"hi mom\n" };

  exit 0;