use strict;
$main::foo = 'bar'; # that's ok