#!perl
use strict;
use warnings;

our $pi;

my %surname_of =
(
    Sean => 'Bean',
    Christopher => 'Walken',
);

sub call_me_when_you_have_pie
{
    return eval '$pi * 2';
}

die another day;
package day;
sub another {'and on your left we have a Bond fan with too much free time'}