#!/usr/bin/perl -w

use strict;

my $source = "tftp"; my $destination = "run";

&first;

sub first {
  my %argsHash = ( Source => $source,
                   Destination => $destination, );

  &second(\%argsHash);
}

sub second {
  my $args = shift;

  my $error = "problems!";

  print "This works, but i need to pass the error value
         to the third subroutine, in addition to
         $args->{Source} and $args->{Destination}\n";

  &third();
}

##</code><code>##

$args->{Error} = $error;