Select Code to Download

#!/usr/bin/perl 

...
#My body, too, all pale will grow.
#To black beneath the sod 'twill turn,
#Likewise the pipe, if oft it burn.

$stain=-0x111111;
$pipe{color}=0xFFFFFF;
...
if(((my $locale = "On land") || ($locale = "At sea")) 
  ||((my $locale = "At home") || ($locale = "Abroad")))
 {$I; &smoke; (my $pipe) and ($worship = 1*1*1);}