my $nlmwriter = new UCP::NLMWriter;
$nlmwriter->writeInstance();

##</code><code>##

package UCP::NLMWriter;

use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION $debug);

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(&new &writeInstance);
@EXPORT_OK = ();

$VERSION = 1.0;
$debug = 0;

sub new {
   # stuff here
}

sub writeInstance {
   # stuff here
}
1;

##</code><code>##

#!/usr/bin/perl -w

use strict;

use UCP::NLMWriter;

use UCP::ManifestWriter;