#!/usr/bin/perl
use strict;
our $pie;
require "b.pl";

&getpied;

print "The pie says : $pie\n";