Unfortunalety i do my things normaly only in php, so i cant "speak" perl very well.
But i hope you could take a look into the scripts; everything we need is to find the right place
to change a variable.

Normaly it should go:

upload to temp
remember filename
***
insert link
copy to path/id-filename
insert filename into links_files

But it should be:

upload to temp
insert into links
remember filename, id
get extension (by mime not by filename)
get foreigncolname
copy to path/id-foreigncolname.extension
insert into links_files

Think this is no secret if someone could read this perl-stuff,
in php it would be a thing of minutes.

May you find this little time for us, please?
I really hate it to build and have to watch all data, remeber the id,
download, upload ...