Maybe I'm just to dumb to understand the documentation, but this seems like it should work no?

use Imager;
    my $pregray = Imager->new();
    $pregray->copy($original);
    my $grey = $pregray->convert(preset=>'grey');
[download]

Or am I passing in the original image wrong?