#!usr/bin/perl
#Musikeiro 0.1
#Simple music player
#Written by Doddy H in the summer of 2009
#ppm install http://www.bribes.org/perl/ppm/Win32-Console-ANSI.ppd
#ppm install http://www.bribes.org/perl/ppm/Win32-MediaPlayer.ppd
 
use Win32::Console::ANSI;
use Win32::MediaPlayer;
 
print "\n\e[;32m Bienvenido a Musikeiro\e[0m\n\n\n";
 
print "\e[33;45;1m Inserta la URL a reproducir: \e[0m";
chomp(my $play = <stdin>);
print "\n\e[42m Playing $play \e[0m\n";
print "\n\e[31mPresiona Control + c para detener cancion\e[0m\n\n";
 
$nave = new Win32::MediaPlayer;
$nave->load($play);     
$nave->play;      
 
while(1) { }
 
# The End ?