#!/usr/bin/perl -w

#Another simple subroutine example.

print 'Enter your first name: ';
$first = <STDIN>;
chomp $first;

print "\nEnter your last name: ";
$last = <STDIN>;
chomp $last;

$lastfirst = &reverseName($first, $last);
print "Your reversed name is $lastfirst \n";

sub reverseName
{
  return $_[1].$_[0];

}