#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

$main::f = 42; print "The value is $main::f\n";