#!/usr/bin/perl -w

use strict;
use GD;

my $order_of_mag;
print "Enter order of magnitude for new picture: ";
chomp( $order_of_mag = <STDIN> );

my $pic = GD::Image->newFromPng( "pc.png" );
my @size = $pic->getBounds();
my @newSize = map( { $_ * $order_of_mag } @size );

my $newPic = new GD::Image ( @newSize );
$newPic->copyResized( $pic, 0, 0, 0, 0, @newSize, @size );

open FH, ">pc2.png" || die "Could not write to file: $!\n";

binmode FH;
print FH $newPic->png();

close FH or die "Could not close file: $!\n"