You're failing on the first field in the list... As part of the debugging process, I would recommend you iterate through your list and print out the values of the fields to ensure that you are referencing them correctly.

foreach $field (qw(FName LName Department Title HireDate Picture RecID
+)) {
    print "$input->{$field}<BR>\n";
}
[download]

Mick