(I hope this is the right place for this kind of sillyness)

In honor of the wonderful I Can Eat Glass Project...

    # I can eat glass, it doesn't hurt me
    chomp my $glass and not die;

[download]

Replies are listed 'Best First'.
Re: I can eat glass, it doesn't hurt me
by Juerd (Abbot) on Aug 05, 2002 at 10:10 UTC 

    use Acme::Don't;
use strict;

I->can('eat_glass');

sub I::eat_glass {
    don't {
        unlink $0;  # hurt me
    }
}

    [download]
    (This is a one time exception to subs-first) 

    - Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

[reply]
[d/l]
Re: I can eat glass, it doesn't hurt me
by Amidamaru (Acolyte) on Aug 09, 2002 at 20:12 UTC
    print join(" in ", "Glass", "stomach,", "no pain.\n");

    A bit simple, but it gets the job done.
[reply]
[d/l]
Re: I can eat glass, it doesn't hurt me
by the pusher robot (Monk) on Aug 09, 2002 at 20:18 UTC 
    use Human::DigestiveSystem;
use strict;

my $me = new DigestiveSystem;
$me->eat('glass');
$me->isHurt(0);

    [download]
[reply]
[d/l]

Back to Perl Poetry