use Storable;
use strict;

my $x = 10;

my $coderef = sub {
    print "\nx is: $x\n";
};

$Storable::Deparse = 1;
Storable::nstore($coderef, 'frozen_ref');