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

use WebService::GetSongBPM;

my $api_key = shift || die "Usage: perl $0 api_key\n";

my $ws = WebService::GetSongBPM->new(
    api_key => $api_key,
#    artist  => 'van halen',
    artist_id => '5MY',
#    song    => 'jump',
#    song_id => 'o2wnk',
);

my $res = $ws->fetch();
use Data::Dumper;warn(__PACKAGE__,' L',__LINE__,". MARK: ",Dumper$res);
