#!/usr/bin/perl -w
use strict;
use XML::RSS::Tools;

my $site = shift;
my $xsl  = shift;
my $rss  = XML::RSS::Tools->new;

$rss->rss_uri($site) or die $rss->as_string('error');
$rss->xsl_file($xsl) or die $rss->as_string('error');
if ($rss->transform) { print $rss->as_string };