Un reproductor de musica que hice hace dos años en el verano.
#!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 ?