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