use strict;
$::database = "backup";         # global variable in Main

                                # package.
package Fred;
print $::database;              # prints "backup";