Repository List / moosie / trunk / conn.pl @ HEAD

#!/usr/bin/perl

use warnings;
use strict;
use IRC::Connection;

my $conn = new IRC::Connection();

foo();

sub foo {
	$conn->connect;
	$conn->disconnect;
}