Select Code to Download

my %images = bpimagelist('$record->{client}');
my %jobs = bpdbjobs();

post2web ( \%jobs, \%images );
...
sub post2Web {
  my ( $jRef, $iRef ) = @_;
  ...

post2web ( { jobs => %jobs, images => %images } );
...
...
  my $jRef = %{ $Args->[ jobs ] };
  my $iRef = %{ $Args->[ images ] };
  ...