#!/usr/local/bin/perl
# (c) Henrik Lund Nielsen 2006
# Current song announcer for FOOBAR2000 with the use og AMPI
#
# Remember to change the file name to the file specified in the AMPI settting in foobar2000


$file = 'c://fooAnnounce.txt'; #The file u wish to open.
open(FILE, ">$file"); #Opens the file for output.
@fileContent = <FILE>; #Assigns the content to the array @fileContent.
close(FILE); #Closes the file.. We have gotten the content by now.

print "$fileContent";