No paste!

#!/usr/bin/perl

use Purple;
use DateTime;

%PLUGIN_INFO = (
    perl_api_version => 2,
    name => "Perl Plugin test",
    version => "0.1",
    summary => "Generate A plugin fail.",
    description => "Fails For Fun",
    author => "nebulous\@sweetbeard.com",
    url => "http://sweetbeard.com",
    load => "plugin_load",
    unload => "plugin_unload"
);
sub plugin_init {
    return %PLUGIN_INFO;
}
sub plugin_load {
    my $plugin = shift;
    Purple::Debug::info("testplugin", "plugin_load() - Test Plugin Loaded.\n");
}
sub plugin_unload {
    my $plugin = shift;
    Purple::Debug::info("testplugin", "plugin_unload() - Test Plugin Unloaded.\n");
}