#!/usr/bin/perl
use strict;
use warnings;

use Image::LibRSVG;

my ($in, $out) = @ARGV;
if (not $out) {
	die <<"END_USAGE";
Converting svg file to png file:

Usage: $0 file.svg  file.png
END_USAGE
}

my $rsvg = Image::LibRSVG->new();
$rsvg->convert( $in, $out );