#!/usr/bin/perl
use strict;
use warnings;
BEGIN {
    use File::Spec ();
    use lib File::Spec->catdir( Xchat::get_info('xchatdir'), 'lib' );
    use N0i::Xchat::Cat;
}
my $cat = N0i::Xchat::Cat->new or die "Fucked up. :(\n";