#!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.ppduse 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 ?