#!/usr/bin/perl -w
use strict;
use Text::ParagraphDiff;

my $old = 'this is the oooooooold textt';
my $new = 'this is the new text';

print text_diff(["$old"], ["$new"]);

##</code><code>##

Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/ParagraphDiff.pm line 197.
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/ParagraphDiff.pm line 125.
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/ParagraphDiff.pm line 125.
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/ParagraphDiff.pm line 258.
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/ParagraphDiff.pm line 258.
Use of uninitialized value in concatenation (.) or string at /Library/Perl/5.8.1/Text/ParagraphDiff.pm line 265.