Select Code to Download

#!/usr/bin/perl
use strict;
...
  print "Processing Jobs for Server Named: ", $self->{name},"\n";

}

Pseudo-hashes are deprecated at  line 43.
Argument "barry" isn't numeric in hash element at line 43.