#! /usr/bin/perl -w

use strict;
use CONFIG::Plain;

my $config;
my $line;
my $errors;

$config = CONFIG::Plain->new('sample.rc');

if (($errors = $config->get_errors) eq '') {
	while (defined ($line = $config->getline())) {
		printf("%s:%d> %s\n",	$config->getline_file,
					$config->getline_number,
					$line);
	}
} else {
	print($errors);	
}

$config->close();