#!/usr/bin/perl 

#Whene'er I take my pipe and stuff it
#and smoke to pass the time away
#my thoughts as I sit here and puff it,
#Dwell on a picture sad and grey
#It teaches me that very like
#Am I myself unto my pipe

if ($I{hold} = my $pipe){true}
&smoke; sub smoke {sleep 5;}
my $thoughts; while($I{puff} = my $pipe)
{@Thoughts = "A picture","Sad","Grey";}
$I = "learn that as"; $one=$one;
$I = my $pipe;

#Like me, this pipe so fragrant burning
#Is made of naught but earth and clay;
#To earth I too shall be returning.
#It falls and, ere I'd think to say,
#it breaks in two before my eyes;
#In store for me a like fate lies. 

$pipe{smell} = "fragrant burning";
$pipe = 0+$earth.$clay;
$me = 0+$earth.$clay;
$soon; $earth = $me;
$pipe{acceleration} = (9.8)."m/s**";
$pipe = split //; my $eyes;
if ((@date=localtime(time))and($date[5]>200)){$me = $m.$e;}

#No stain the pipe's hue yet doth darken;
#It remains white. Thus do I know
#That when to death's call I must harken
#My body, too, all pale will grow.
#To black beneath the sod 'twill turn,
#Likewise the pipe, if oft it burn.