#!/usr/bin/perl

$inputName = @ARGV[0];
$inputBD = @ARGV[1];
print "You entered $inputName and $inputBD\n";

#$name = "Jen";
#print "Enter your full name: ";
#$name2= <>; 
#chomp $name2; #gets rid of \n at end
$age = 40;

#print $name is $age-5;
#print $name;
#print " is ";
#print $age-5;
#print "\n";
print "$name2 is " . ($age-5) . "\n";