my ($file, $newWidth, $newHeight) = @_;