#!/usr/bin/perl -w use strict; package First; our $scalar = "first"; print $scalar; package Second; print $scalar; our $scalar = "second"; print $scalar; package Third; { our $scalar = "inner"; print $scalar; } print $scalar;