/sketch/convert.pl

 1use strict;
 2use warnings;
 3use lib 'lib';
 4use Teto::Track;
 5use Teto::Buffer;
 6use Perl6::Say;
 7
 8my $url = shift or die "Usage: $0 url\n";
 9my $track = Teto::Track->from_url($url) or die;
10
11my $buffer = Teto::Buffer->new(min_buffer_size => 0);
12$track->buffer($buffer);
13$track->play;
14
15my ($fh, $filename) = $track->tempfile(SUFFIX => '.mp3');
16say "$url -> $filename";
17print $fh $buffer->buffer;