1#!perl
2use strict;
3use warnings;
4
5our $pi;
6
7my %surname_of =
8(
9    Sean => 'Bean',
10    Christopher => 'Walken',
11);
12
13sub call_me_when_you_have_pie
14{
15    return eval '$pi * 2';
16}
17
18die another day;
19package day;
20sub another {'and on your left we have a Bond fan with too much free time'}
21