use strict;

# $Id: FireBagel.pm,v 1.1 2007/06/27 16:14:34 asc Exp $

package Net::FireBagel;
use base qw (Net::FireEagle);

BEGIN {
        print STDERR "FIREBAGEL!!!!\n";
}

END {
        print STDERR "FIRE!!!! BAAAAAGELLL!!!!!!!\n";
}

return 1;
