#!/usr/bin/perl
# pie.pl

use strict;
my $pie;
require "b.pl";

$pie = &getpied;

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

##</code><code>##

#!/usr/bin/perl
# b.pl

use strict;

sub getpied
{
    return "eat me";
}
1;