If you don't have access to the server's error log, try closing the code inside an eval to catch exceptions:

#!/usr/bin/perl -wT
eval {
  use strict;
  ...
};
print "Died with $@\n" if ($@);
[download]