Since this is just about argument passing, here's what I did to get what you were looking for to work.

#!/usr/bin/perl

$email = @ARGV[[0]]; # not $argv[[1]], @ARGV starts at 0

printf "%s\n", $email ? $email : "none listed";
[download]

The above renders anything as argument 1 otherwise "none listed".

Hope this helps. As coverage, arguments are stored in @ARGV and start at @ARGV[[0]].

edited: Fri Mar 14 23:36:41 2003 by jeffa - code tags