#!/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;