my $parameters = (q[colorspace=>'gray'], q[compression=>'none']);