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

Hopefully fairly self-explanatory. That's literally all you need to do. See PDL::IO::Pic for more on image read/writing, and PDL::QuickStart for more on PDL use.