$localfile = $filename;
$localfile =~ m/(.*)\.(.*)/;
$newfilename = "generated_thumbs/$1.png";
$x = $image->Write($newfilename);