sub write_file
	{
        my $path = shift;
        my $text = shift;
	.....        
	}