use constant PAGE_WIDTH => 8; # 8.5" page with 0.5" of equal margins.
use constant DPI => 72;       # Fax resolution.

# ...

$scale_factor = ( PAGE_WIDTH * DPI ) / $image->Get( 'y-resolution');

# ...