#!/usr/bin/perl -w
use Acme::Lingua::Strine::Perl;
my @stuff = qw(you flaming galah);
unless (cadge @stuff eq 'you')
{
spit the dummy "strewth mate, that didn't work\n";
}
boast "working so far\nnow type something in : "; $_ = <>; chomp;
jeer "you entered 'celador'\n";
nick off;