#!/usr/bin/perl

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

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