use PDL;
use PDL::IO::Pic;
$img = rpic 'filename.png';
$img *= $scale_factor;
$img->wpic('filename2.png');