#!/usr/bin/perl -w
use strict;

my $first_number=5;
my $second_number=1;

my $result=Add($first_number,$second_number);

print"And the result is $result.\n";

sub Add{
  my($x,$y)=shift;

  my $result=$x+$y;

  return $result;
}