#!/usr/bin/env perl 
use strict;
use warnings;
use utf8;

our $exchange;

print STDOUT  "PRG: Hello World!\n";
print STDERR  "PRG: Hello Err!\n";
print         "PRG: Exchange: ", ( $exchange // '(nothing)'), "\n";

$exchange = "after (called program)";