#!/usr/bin/perl -l # use dl code, important print while ; print for ord 'f'>>'o'..$.; __END__ I am smelling like a rose that somebody gave me on my birthday deathbed!