vrou

#!/usr/bin/perl

my $i    = 0;
my $info = "Arguments:\n";
my ( $action, $name, $challenge, $auth ) = @ARGV;
foreach my $arg (@ARGV) {
    $i++;
    $info .= "\t$i: $arg\n";
}
$info .= "\n\n";