Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 20 lines (14 sloc) 394 Bytes
#!/usr/bin/env perl
use 5.12.0;
use warnings;
use Net::LastFM::Submission;
use YAML;
use Getopt::Whatever;
use Encode;
my $submit = Net::LastFM::Submission->new(
%{ YAML::LoadFile(glob "~/.last.fm") }
);
$submit->handshake;
die "usage: $0 --artist='whatever' --title='whatever'\n"
unless $ARGV{artist} && $ARGV{title};
$submit->submit(time => time, map { decode_utf8($_) } %ARGV);
Something went wrong with that request. Please try again.