#! /usr/bin/perl
####################################################################
##
##        Name.pl
##
##        Name.pl <yourname>
##
##        Asks for Age and prints both to STDOUT
##
##        Returns
##        0    -    Successful
##        1    -    No Name on the Command Line
##        2    -    No Age Entered
##        3    -    Error in Say_Hello Subroutine
##
####################################################################

use strict;
use warnings;

my $rc = 0;
my $name = $ARGV[0];

if ($name) {
    print "Please enter your Age:\n";
    chomp (my $age = <STDIN>);

    if ($age) {
        unless (&Say_Hello($name, $age)) {
            print "Error in subroutine\n";
            $rc = 2;
        }
    }
    else {
        print "You did not enter your age.\n";
        $rc = 2;
    }
}
else {
    &Usage;
    $rc = 1;
}
exit($rc);

##-----------------------------------------------------------------
#    Say_Hello - Prints output to STDOUT
#    Receives $name and $age
#    Returns - 0 = Fail; 1 = Success
##-----------------------------------------------------------------
sub Say_Hello
{
    my $rc = 0;
    my $helloto = shift;
    my $howold    = shift;

    if (print "Hello $helloto who is $howold\n") {
        $rc = 1;
    }
    return($rc);
}

##-----------------------------------------------------------------
#    Usage - Printed when no command line params are entered.
##-----------------------------------------------------------------
sub Usage
{
    my( $Script ) = ( $0 =~ m#([^\\/]+)$# );
    my $Line = "-" x length( $Script );
    print << "EOT";

$Script
$Line

Supply your name on the commandline. You will be asked to supply
your age.  Both will be printed out.

Syntax:
    $0 <yourname>

EOT

}
[download]