#!/usr/bin/perl
use strict;

my $parameter = "param at declaration\n";
my $print_ref = sub { print $parameter };

$print_ref->(); # prints: param at declaration

$parameter = "param after declaration\n";

$print_ref->(); # prints: param after declaration

exit;