#!/usr/bin/perl

use strict;
use pkg1;

$main::foo = 'bar';

print pkg1_get_foo()."\n";