$ cat myscript.pl
#!/usr/bin/perl -w

use strict;
...

use lib('.');
use MyModule;

...

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

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