#!/usr/bin/perl
use User::Idiot;
my $current_user = new User;
my $status = get_user_properties($current_user);
if ($status == "child") {
print ";-)";
} elsif ($status == "stupid") {
$current_user->drop("forever");
} elsif ($status == "idiot" ) {
$current_user->send_killers_to_user("terminate_it");
}
|