############################################################
#
# dupslib.pm
# - subroutines to:
#	- fill 2 scalers.
#	- process the results.
#
#	by Chris Yager
#   (c) 2005 
############################################################

sub fill_scalers {
	my ($shortfile, $longfile);
	$shortfile =
"The second line.
This is it.

Still another line.
My favorite line.
The final line.";

	$longfile =
"The first line.
The second line.
Another line
Fourth line.
Still another line.
main line
The final line.";

	return $shortfile, $longfile;
}

sub save_results {
	my ($differences) = @_;
	print "#### differences\n";
	print $differences;
	print "############\n";
}

# and the required, magical one at the end.
1;