#!/usr/bin/perl -w
use strict;
use Image::LibRSVG;

my $rsvg = new Image::LibRSVG();
my $infile=$ARGV[0];

for (my $i=1;$i<=10;$i++) {
	my $fs=sprintf("%05d.png",$i); 
	$rsvg->convertAtZoom($infile,$fs,$i/10,$i/10); # be careful 1, is normal zoom, not 100!!!
	undef $fs;
}

undef $rsvg;