#! /usr/bin/perl -w

use strict;
use CONFIG::Plain;

my $config;
my $line;

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

while (defined ($line = $config->getline())) {
	printf("%s:%d> %s\n",	$config->getline_file,
				$config->getline_number,
				$line);
}

$config->close;