open(VIRTUALPRN, "| perl print.pl");

##</code><code>##

use Tk;

$mw = MainWindow->new(-width => 300, -height => 600);

$pp = $mw->Scrolled("Text")->pack;
$pp->configure(	-background => 'white',
		-scrollbars => 'osoe',
		-font => '*-courier-medium-r-*-*-17-*'
		);
tie(*PP, 'Tk::Text', $pp);

sub foo
{
	while($l = <STDIN>)
	{
		print INVOICEVIEW $l;
		$pp->update();
	}
}



MainLoop();