Código
#!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; $nave = new Win32::MediaPlayer; $nave->load($play); $nave->play; while(1) { } # The End ?