sub thumbnailize {
    my ($pic, $thumb) = @_;
    my $image = Graphics::Magick->new;
    my $err;
    
    $err = $image->Read($pic);
        warn $err if $err;
    $err = $image->Scale(geometry => '200x200');
        warn $err if $err;
    $err = $image->Write($thumb);
        warn $err if $err;
}