Something

sub mp3 {
if($in=~/!mp3/)
        open(NP, "<$TMPFILE");
        while(<NP>)
        {
	print $irc "PRIVMSG $chan :Echtor now playing: [ $_ ]"; 
     }
        close(NP);
	return 1;
}