You are using "local" variables. my $pie is local to your files.

What you want are globals.

so use vars qw($pie);