#!/usr/bin/perl -w

use strict;

BEGIN {
   package MyModule;
   ...
}

my $thingy = new MyModule ( 'thing2' );

print "yeah!\n" if $thingy->is_thing();
print "boo!\n" unless $thingy->is_thing();