Les arguments se trouvent dans le tableau @ARGV et le nom du script lui même est dans $0 :
#!/usr/bin/perl
use strict;
for(my $i = 0; $i <= $#ARGV; $i++)
{
        print "$ARGV[$i]\n";
}
Qui aura le résultat suivant :
[~] $ ./qq premier second troisieme premier second troisieme [~] $