Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

use strict;
use LWP::Simple;

Select or download this

my $urlmask = 'http://radiostorm.com/%s';

...
sub mget {
    return get sprintf($urlmask, shift);
}