#!/usr/bin/perl
$argument = $ARVG[0] || warn "No argument";
print "argv = |$ARVG[0]|\n"; 
if ($argument !=~/\w/ ) {
    print "enter an argument \n";
    chomp ($argument = <STDIN>);
}