#!/usr/bin/perl -w

use strict 'vars';

#Another simple subroutine example.

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

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

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

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

}