#!/usr/bin/perl
#use strict;
use warnings;
use MP3::Info;

my $file=$ARGV[0];
open (CURRENT, "$file") or die "can't open file";
my $line=<CURRENT>;
chomp $line;
$line=~s/u=//;
#print "FILE CURRENT:\n",$line,"\n";
close (CURRENT);
my $tag = get_mp3tag ($line, ID3v2);
print "AUTORE=",$tag->{ARTIST},"&ALBUM=",$tag->{ALBUM},"&BRANO=",$tag->{TITLE};

##</code><code>##

<?
system ("/path/to/script/mp3tagfinder.pl".escapeshellarg('/path/to/hard/link/file/current'));
?>