Select Code to Download

#!/usr/bin/perl

...
use diagnostics;

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