#!/usr/bin/perl

use Cwd 'abs_path';
use Debconf::Client::ConfModule qw(:all);
version('2.0');
my $capb=capb("backup");

for ($i = 0; $i < 100; $i++)
{
	system("echo -n garbage");
	# system("echo -n garbage >&2"); # use this instead of the above print, and the return code no longer is 128
	# you can use "print" and "print STDERR" for increased speed instead of "system... echo"
}

exit 0; # debconf overrides this if we feed garbage to it