tilt-shiftin via PerlMagick

[Readbook]

Hi.
how use these effect:
http://www.imagemagick.org/Usage/photos/#tilt_shift
in perlmagick?
I succesfully use simple command like

Code: Select all

    $image->Set('gamma'=>'0.75');
	$image->Modulate(100,300);
	$image->Contrast();
	
	$new=$image->Clone();

but, how i can use these command?

Code: Select all

-sparse-color Barycentric "0,0 black 0,%h white" -function polynomial 4,-4,1 -level 0,50%