#!/usr/bin/perl

use strict;

#The special array @ARGV holds all of the command line arguments.  
#You access them as you do any other array
my $FIRST_ARG = $ARGV[0]; #ARGV[0] holds the first argument
my $SECOND_ARG = $ARGV[1]; #ARGV[1] holds the second argument [2] the third, etc



main();



sub main {

    #print out the 2 command line arguments
    print "The first argument is: $FIRST_ARG\n";
    print "The second argument is: $SECOND_ARG\n";

    
    ##This is how you prompt the user for input
    print "Please Enter Your First Name:";
    
    my $f_name = <STDIN>;

    print "Please Enter Your Last Name:";
    my $l_name = <STDIN>;

    #the new carriage return is captured from the newline, we need to remove that...
 
#try commenting out the 2 chomps and compare the different output.
    chomp($f_name);
    chomp($l_name);
    print "\n\tYour name is: $f_name $l_name\n";


    

}