BBC radio streamer using mpc

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

# BBC radio stream media player.
# Author: prawn [sean dot prawn at gmail dot com]
# Released under GPL V2. <https://www.gnu.org/licenses/gpl-2.0.html>
# Needs mpc.

my $version = "0.1";
my %stations = qw(
  r1 http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio1_mf_p
  r1x http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio1xtra_mf_p
  r2 http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio2_mf_p
  r3 http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio3_mf_p
  r4 http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio4fm_mf_p
  r4lw http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio4lw_mf_p
  r4x http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio4extra_mf_p
  r5l http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio5live_mf_p
  r5x http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio5extra_mf_p
  r6 http://bbcmedia.ic.llnwd.net/stream/bbcmedia_6music_mf_p
);

sub help {

  print "Usage: $0 station\n\n";
  print "Stations:\n";

  foreach my $key (sort ( keys %stations ) ) {

    print "\t$key\t$stations{$key}\n";

  }

  print "\nTo stop player, type mpc clear\n";

}

print $0 . " version $version\n";

if ( $#ARGV < 0 ) { help(); exit; }

if ( $stations{$ARGV[0]} ) {

    print "Playing radio stream $stations{$ARGV[0]}\n";
    `mpc clear`;
    `mpc add $stations{$ARGV[0]}`;
    `mpc play`;
    print "\nTo stop player, type mpc clear\n";

} else {

  help();

}