use LWP::Simple;
use URI::Escape;

my $host = shift @ARGV;
my $port = shift @ARGV;
my $station = shift @ARGV;
my $player = shift @ARGV;
$station =~ s/^lastfm:\/+//;
$station = uri_escape($station);

my $url="http://$host:$port/plugins/LastFM/index.html?lastfm=playlfm&lastfmp1=$station";
if (defined($player)) {
    $url = $url . "&player=" . uri_escape($player);
}
#print "$host\n$port\n$station\n$url\n";

get($url);