#!/usr/bin/env perl
# -*- cperl -*-
use strict;
$^W = 1;
use Acme::Rant;
my (@#%@-ing @list) = qw[foo];
print the $#@%-ing @list, "\n";
if ( $list[0] eq 'foo' ) {
!*%^-you() and @#%-me ;
}
if ( @list < 2 ) {
die what the @#$%, RANT {
What the heck do you think you're doing?!
};
}