Where exactly do you need help?

What is not working, and how is it failing?

Also, you should not interpolate user-supplied data into strings and then pass them to your SQL database. Use DBI placeholders instead.

Also, this code looks suspicious:

    while( ($ARTICLE{'name'},$ARTICLE{'author'},$ARTICLE{'label'},$ART
+ICLE{'price'},$ARTICLE{'pochette'},$ARTICLE{'genre'})=$c->fetchrow())
+ {
        $total +=1;
    }
[download]

Maybe you wanted to do a select count(*) from ... instead, to make the database do the work?

$depot =~ s/[^A-Za-z0-9 ]/;

And this statement looks very wonky. Should it be
    $depot =~ s/[^A-Za-z0-9 ]//g;
instead? (And might
    $depot =~ tr/A-Za-z0-9 //cd;
be a better choice?)

See s/// and tr/// in perlop.

Did you perhaps mean formatting instead of pagination?

Please ask yourself:

Who is Bobby Tables? and Why did Bobby's school lose their records?

Than read -> A guide to preventing SQL injection in Perl

In case you meant "formatting" this is the first address: Perltidy.

If you're tinkering strings together and want to improve readability, something like this is an option:

my $string = qq(Lorem ipsum kizuaheli);
my $gizmo = qq( and the crux of the biscuit is the apostrophe);
$string .= $gizmo;
[download]

Take a look at Re: What is the best way to produce a formal pdf report autonomously?. A very basic Templating System, so to speak. And certainly good enough to get a feel for it.

don't lie