#!/usr/local/bin/perl -w
use strict;
use Data::Reporter::RepFormat;

my $sheet = new Data::Reporter::RepFormat(124,10)
    or die "Wouldn't let me";

$sheet->Move(120,0);
$sheet->Print('TEST');
$sheet->MVPrint(0,1,'Next line at start');
$sheet->Move(0,2);
print "Report has ", $sheet->Nlines()," lines\n";
$sheet->Out();

##</code><code>##

Report has 3 lines
Can't locate object method "Out" via package "RepFormatPtr"
at /home/jonathan/Reportformat.test line 12.