while(1)
{
	$printer .= " ";
	print $printer."#"
}